function Fact(n:integer): integer; var i,sum:integer; begin sum:=1; for i:=1 to n do sum:=sum*i; result:=sum; end;
begin readln(x); writeln(Fact(x)); end. --------->С помощью этой функции найти <span>факториалы пяти данных целых чисел. - Вы не написали каких чисел</span>