Циклы. Вычисление факториала f=n! описать с помощью цикла с предусловием и цикла с постусловием.

Var
 s,s1:string;
 h,l:integer;
 n:longint;
begin
readln(n);
str(n,s);
s1:=s[length(s)-2];
Val(s1,h,l);
writeln(h);
end.

Var
 s,s1:string;
 h,l:integer;
 n:longint;
begin
readln(n);
h:=(n div 100) mod 10;
writeln(h);
end.

uses crt;
var n:longint;
    k,c:byte;
begin
clrscr;
write('n=');
readln(n);
if n<100 then write('В числе нет 3 цифр!')
else
 begin
  k:=0;
  while n>0 do
   begin
    k:=k+1;
    n:=n div 10;
    if k=2 then c:=n mod 10;//если 2 цифры уже сократили, берем первую с конца, она третья
   end;
  write('Третья цифра с конца=',c);
 end;
readln
end.

Uses
 CRT;
Var
 fact:real;
 i,n:integer;
 key,l:char;
begin
ClrScr;
repeat
write('Ââåäèòå n: ');
readln(n);
if n<0 then
begin
writeln('n íå ìîæåò áûòü îòðèöàòåëüíûì.');
end
else
begin
fact:=1;
i:=1;
while i<=n do
begin
fact:=fact*i;
inc(i);
end;
writeln('Fact:=',fact);
end;
until n>0;
readln;
end.

Uses
 CRT;
Var
 fact:real;
 i,n:integer;
 key,l:char;
begin
ClrScr;
repeat
write('Ââåäèòå n: ');
readln(n);
if n<0 then
begin
writeln('n íå ìîæåò áûòü îòðèöàòåëüíûì.');
end
else
begin
fact:=1;
i:=1;
repeat
begin
fact:=fact*i;
inc(i);
end;
until i>n;
writeln('Fact:=',fact);
end;
until n>0;
readln;
end.