var x, result: real;beginresult := 1;
for x := 1 to 63 dobeginresult := result * x;end;
writeln('Результат выражения: ', result);end.
var x, result: real;
begin
result := 1;
for x := 1 to 63 do
begin
result := result * x;
end;
writeln('Результат выражения: ', result);
end.