Ppf.PAS

{* Поиск числа в векторе *}

Unit PPF;
Interface
Implementation
Begin
 writeln('Программа показывает использование типа "функция" на примере поиска числа в векторе.');
End.

Program Ppf;

Uses Ppf.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  n = 1000;
Type {* Используемые типы *}
  vector = Array [1..n] Of integer;
  func =
Function (X : integer) : String;
Var {* В работе нам потребуются переменные: *}
  Z                       : integer;
  k                       : integer;
  j                       : integer;
  v                       : vector;
Function B(X            : integer);
Begin
If X = Z Then
  B := 'Yes'
Else B;
Procedure A(vect        : vector;
F                       : func);
Var {* В работе нам потребуются переменные: *}
  i : integer;
  Begin
For i := 1 To k Do {* Цикл для i => [1 .. k] *}
  Writeln(F(vect[i]));
End;
Begin
Write('Vv kol - vo el - tov vectora: ');
Readln(k);
For j := 1 To k Do {* Цикл для j => [1 .. k] *}
  Begin
Write(j, ' element = ');
Readln(v[j]);
End;
Write('Iskomoe chislo = ');
Readln(Z);
A(v, B);
Readln; {* Ждем подтверждения пользователя *}
End......