Вычислить 10!, используя все три вида циклов

program fuctr;
uses crt;
var n,s,i:integer;
begin
readln(n);
if (n=0) then writeln('0!=1') else
if (n<0) then writeln('Определяется только для положительных чисел')
else
begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s);
end;
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.

program z_array;
uses crt;
var a:array[1..100] of real;
n,i,j,max,min,temp:byte;
sum:real;
begin
clrscr;
writeln('Введите количество элементов массива');
readln(n);
writeln('Введите элементы массива');
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
writeln('Данный массив');
for i := 1 to n do
write(a[i]:7:2);
writeln;
writeln;
max:=1;
min:=1;
for i:=2 to n do
if a[i]<a[min] then
min := i
else
if a[i]>a[max] then
max := i;
if min>max then
begin
temp:=min;
min:=max;
max:=temp;
end;
sum:=0;
for i:=min to max do
sum:=sum+a[i];
writeln('Искомая сумма ',sum:7:2);
readln;
end.