Ребят, Помогите ПЖ с информатикой, очень нужно умоляю!!!

Помогу чем могу

В первом задании я так думаю нужно объявит ьпеременну 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];

end;

writeln(s);

end.