uses wincrt;
var
i:byte;
fakt:longint;
sayi:integer;
procedure a(var s:integer);forward;
procedure giris;
begin
write('sayı girin:');readln(sayi);
a(sayi);
readln;
end;
procedure a ;
begin
clrscr;
fakt:=1;
for i:=1 to s do
fakt:=fakt*i;
write('faktöriyel:',fakt);
end;
begin
giris;
end.