Question

Var x,y : integer; begin y:=0; for x:=1 to 9 do y:=y*x; writeln (`y=', y); end

Answer 1

Var
x,y : integer;
begin
y:=0;
for x:=1 to 9 do
y:=y*x;
writeln ('y=', y);
end.
ответ 0