Question

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