factorial

program factorial;
var
    i:integer;
    result:longInt;
    input:integer;
begin
    result := 1;
    write('Введите число: ');
    readln(input);
    for i:=1 to input do begin
        result := result * i;
    end;
    writeln(input, '! = ', result);
end.