Нужно вывести произведение первых 5 чётных чисел
Паскаль =)

"Program 10;
var i,n,s: Integer;
begin
write ('n=');
readln (n);
for i:= 1 to 5 do
if i mod 2 =0 then s:= s+i;
writeln ('Сумма чётных чисел от 1 до ',5,' равна ',s);
end."

Где тут ошибки ? =)