Напишите пожалуйста программы для Pascal ABC:

Вот так будет правильней твое первое задание
var a:array[1..20] of integer;
sum10,sum3,i:integer;
begin
writeLn('Массив из 20 целых чисел');
for i:=1 to 20 do begin
a:= random(50);
write(A:3);
end;
writeLn;
writeLn('Числа не превышаюшие 10');
for i:=1 to 20 do begin
if a <= 10 then begin write(a:3);end;
if a <= 10 then begin sum10:=sum10 + a;end;
end;
writeLn;
writeLn('Числа кратные 3');
for i:=1 to 20 do begin
if a mod 3 = 0 then begin write(a:3);end;
if a mod 3 = 0 then begin sum3:= sum3+ a;end;
end;
writeLn;
writeln('Сумма чисел больше десяти = ',sum10);
writeln('Сумма чисел кратных трём =',sum3);
end.
Второе по ходу не правильно написано нужно кое что исправить

1) for i:=0 to 20 do
if a [ i]<10 then summ1:=summ1+a [ i];
if a[ i] mod 3=0 then summ2:=summ2+a[ i];
writeln(summ1,summ2);

дальше по аналогии

program nr1;
var a:array[1..50] of integer;
sumten,sumthree,i:integer;
begin
randomize;
for i:=1 to 50 do
begin
a[ i ]:= random(20);
if a[ i ] <= 10 then sumten:=sumten + a[ i ];
if a[ i ] mod 3 = 0 then sumthree:= sumthree+ a[ i ];
if i mod 10=0 then writeln (a [ i ], ' ')
else write(a[ i ], ' ');
end;
writeln;
if sumten>0 then writeln(sumten,'- Сумма чисел больше десяти')
else writeln('Чисел больше десяти нету');
if sumthree>0 then writeln(sumthree,'-Сумма чисел кратных трём')
else writeln('Чисел кратных трём нету');
end.

program nr2;
const a:array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36);
var i:integer;
f:real;
begin
f:=0;
for i:=1 to 10 do
f:=f+a;
f:=f/10;
writeln('Средняя температура: ',f:4:2);
readln;
end.