Вычисление факториала. Сasе

procedure fakt(n,i1,i2i3:integer;var i:******comp******);
 
тип comp-позволяет вычислить факториал 17 так,как все остальные extended,longint,integer,byte cлишком малы для вмещения числа:
17!= 355 687 428 096 000
--------------------------
program abd;
uses crt;
var l,s,i:integer;
procedure vich(var i1,i2i3:integer;
n1,n2,n3:integer);
procedure fakt(n,i1,i2i3:integer;var i:comp);
var e:integer;
begin
s:=1;
i:=1;
for l:=1 to n do
begin
i:=i*s;
s:=s+1;
end;
begin
n1:=5;
n2:=12;
n3:=17;
for e:=1 to 3 do
begin
case e of
1:begin
n:=n1;
fakt(n,i);
i1:=i;
end;
2:begin
n:=n2;
fakt(n,i);
i2:=i;
end;
3:begin
n:=n3;
fakt(n,i);
i3:=i;
end;
writeln(i1:10); возможно будет writeln(i1:10:0);-это из-за comp 
writeln(i2:10); возможно будет writeln(i1:10:0);-это из-за comp
writeln(i3:10); возможно будет writeln(i1:10:0);-это из-за comp
end;
begin vich(i1,i2,i3);
end.

program abd;
uses crt;
function Fakt(n:integer):comp;
var i:integer;
    f:comp;
begin
f:=1;
for i:=1 to n do
f:=f*i;
Fakt:=f;
end;
var a:integer;
begin
clrscr;
repeat
writeln('Введите число 5 или 12 или 17:');
readln(a);
until a in [5,12,17];
case a of
 5:write('5!=',Fakt(5):0:0);
12:write('12!=',Fakt(12):0:0);
17:write('17!=',Fakt(17):0:0);
end;
readln
end.