1) напишите функцию вычисляющую количество трехзначных чисел делящихся на 13 и не оканчивающихся на 3
2)для некоторого массива из 30 элементов, проверить, есть-ли в массиве элемент, заданному значению с клавиатуры

Pacal function F() : integer;  var    k,i : integer;  begin   k := 0;   for i := 100 to 999 do    if (i mod 13 = 0) and (i mod 100 <> 3) then     k := k +1;   Result := k;    end;   begin  writeln (f()); end. const     n = 30;  var   a : array [1..n] of integer;   i,b : integer;   r : boolean;       begin  readln (b);    i := 1;  r := false;   While (not r) and (i <= n) do    begin     if a[i] = b then      r := true;     i := i +1;    end;    if r then   writeln ('Есть')  else   writeln ('Нет');    end.