Mam problem z PAscalem. Postanowiłem napisać swój mały programik i nie wiem w czym jest błąd.
program matematyka;
uses crt;
var n,m,z,x:longint;
begin
readln(n);
z:=1;
for x:=1 to n do
begin
readln(m);
z:=z*m;
end;
writeln('iloczyn=',z);
readln;
end.