2. Construir um programa para calcular o fatorial de um número inteiro dado.

program P2;

uses crt;

var

n : integer;

procedure tela;

begin

repeat

clrscr;

highvideo;

gotoxy(20,1);

write('PROGRAMA FEITO POR KARINE E MARIA DA GLORIA');

highvideo;

gotoxy(24,3);

write('CALCULO DO FATORIAL DE UM NUMERO');

lowvideo;

gotoxy(10,5);

write('Entre com o número desejado => ');

readln(n);

until n in [1..30];

end;

function fat(x : integer) : real;

var

i : byte;

f : real;

begin

f := 1;

for i:=1 to x do

f :=f * i;

fat := f;

end;

{Programa Principal}

begin

tela;

gotoxy(10,6);

write ('O fatorial do número ‚ => ',fat(n));

repeat until keypressed;

end.

Para retornar a tela principal clique aqui.