Cum se face exercitiul 11?

Deja l-am rezlvat in Pascal asa ca tine.
Program HI;
var i, n, S : integer;
begin
write ('n='); readln(n);
S:=1;
for i := 1 to n do
S:= S*i;
writeln ('suma=',S);
readln;
end.
Si precizeaza alta data in ce limbaj de programare e problema :)