Помогу чем могу
В первом задании я так думаю нужно объявит ьпеременну i?
var i:integer
Во втором задании
у тебя n нигде не описано и не присвоено, также и I не описано, во втором цикле также a[i] ошбика, должно быть a[I]
В третьем задании
11 6 8 10 12
Последнее задание (напишу в кратце тебе лишь оформить)
a: array[1..30] of integer;
begin
s:=1;
for i:=1 to 30 do begin
writeln("Введи ", i, " элемент");
readln(a[i]);
if (a[i] mod 2 = 0) and (a[i]<20) then s=s*a[i];</p>
end;
writeln(s);
end.