65 ! составить раздел описания для заданных переменных.

{ задание 1}
const
  n=17;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i] mod 2=0 then k:=k+1
    end;
  Writeln;
  Writeln('k=',k)
end.

Пример
43 86 43 13 24 18 93 38 38 59 15 75 12 92 8 72 8
k=10

{ задание 2/3}
const
  n=17;
var
  a:array[1..n] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to n do begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i] mod 10=2 then s:=s+a[i]
    end;
  Writeln;
  Writeln('s=',s)
end.

Пример
58 39 12 24 91 57 14 44 47 61 31 10 95 54 42 98 76
s=54

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  Range(-50,50,5).Tabulate(x->(x+4)*sqr(x+4)-sin(x)).Print(NewLine)
end.

Результат:
(-50,-97336.2623748537)
(-45,-68920.1490964755)
(-40,-46655.2548868395)
(-35,-29791.4281826695)
(-30,-17576.9880316241)
(-25,-9261.1323517501)
(-20,-4095.08705474927)
(-15,-1330.34971215984)
(-10,-216.544021110889)
(-5,-1.95892427466314)
(0,64)
(5,729.958924274663)
(10,2744.54402111089)
(15,6858.34971215984)
(20,13823.0870547493)
(25,24389.1323517501)
(30,39304.9880316241)
(35,59319.4281826695)
(40,85183.2548868395)
(45,117648.149096475)
(50,157464.262374854)