Aula 06 Exemplo02

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

program Aula06_exemplo02;
uses Crt;
var valor : integer;
procedure obtervalor;
var x : integer;
begin
 write('Digite um número:');
 readln(x);
 valor := x;
end;
function fatorial(v:integer) : integer;
begin
 if v <= 2 then begin
 fatorial := v;
 end else begin
 fatorial := v * fatorial(v-1);
 end;
end;
begin
 obtervalor;
 write('O fatorial de ',valor,' é ',fatorial(valor));
end.