найти произведение четных чисел от 0 до n Pascal abc

Вот теперь правильно!

Да блин!

ВОТ ПРАВИЛЬНЫЙ КОД:

program help;var i,n,res:integer;beginres := 1;readln(n);for i := 1 to n do begin if i mod 2 = 0 then res:= res * i;end;writeln(res)end.

все...

Решено

program help;

var i,n:integer;

begin

readln(n);

for i := 1 to n do begin

   if i mod 2 = 0 then

       writeln(i);

end;

end.

*Вводишь число, получаешь все четные числа до него*