Дан массив из 25 элементов, заполненный случайным образом, из указанного промежутка (-10; 10 найти а кол-во элементов кратных 3 и сумму положительных элементов. написать на паскале

Var a: array[1..20]of integer;       i,s,k: integer; begin   write('massiv: ');   for i: =1 to 20 do   begin     a[i]: =random(21)-10;     write(a[i],' ');   end;   writeln;   for i: =1 to 20 do   begin     if a[i] mod 2=1 then k: =k+1;     if a[i]> 0 then s: =s+a[i];   end;   write('kratnih trem: ',k,' summa polozhit: ',s); end.

Программа суммы без комментариев: program sum;   {$apptype console} uses      sysutils; var        a,b: integer; begin    readln(a,b);       writeln(a+b);     readln; end; программа суммы с комментариями: program sum;   {$apptype console} uses        sysutils; var        a,b: integer; {указывание переменных} begin     readln(a,b);   {считывание значений с клавиатуры}     writeln(a+b); {вывод суммы двух чисел}     readln; {задержка результата на экране} end;

Program chik; var a: array[1..1000]of integer; h,i,n,x: integer; begin read(n); h: =0; for i: =1 to n do begin read(a[i]); end; read(x); for i: =1 to n do begin if(a[i]=x*x)then h: =h+1; end; write(h); end. 2) program chik2; var a,h: integer; begin a: =5; h: =0; while a< > 0 do begin read(a); if(a< 0)then h: =h+1; end; write(h); end. 3)program chik3; var a,h,s,p: real; begin a: =5; h: =0; while a< > 0 do begin read(a); s: =s+a; h: =h+1; end; p: =s/h; write(p); end. 4)program chik4; var n,j,i: longint; begin read(n); for i: =1 to n do begin for j: =1 to i do begin write(j,' '); end; writeln; end; end.   удачи!