допоможіть з задачою Опции

[svetaj6]

знайти добуток парних чисел від 1 до 20.
будь ласка
в паскалі скласти програму

[sheka]

svetaj6, попытайся в следующий раз попробовать сделать сама

 var p,i:integer;
begin
p:=1;
for i:=1 to 10 do p:=p*2*i;
writeln('proizvedenie ravno=',p);
readln
end.