program factorial;
uses crt;
var
i,num:integer;
factor:longint;
begin
clrscr;
gotoxy(18,3);writeln ('<< FACTORIAL DE UN NUMERO >>');
gotoxy(20,10);writeln ('INTRODUZCA EL NUMERO <-->');
gotoxy(42,10);read(num);
factor:=1;
for i:=1 to num do
factor:=factor*i;
gotoxy(20,13);writeln ('EL FACTORIAL ES: ',factor);
readkey;
end.