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.