Question

ПОМОГИТЕ ДАЮ 25 БАЛЛОВ

Answer 1

var f,i:integer;
begin
f:=1;
for i:=1 to 6 do f:=f*i;
writeln(f)
end.