var
f,i:integer;
begin
for i:=1 to 5 do
f:=-f*i;
write(f);
end.
Вбей в паскаль и он выведет тебе значение f
