Впорядкувати три довільних числа в порядку зростання в паскалі

Const nx=20;var A:array[1..nx] of integer; i,j,n,d:integer;begin
for i:=1 to 3 do begin
writeln('Введите число');readln(A[i]);end;
for j:=1 to 3 do begin
for i:=2 to 3 do begin
if A[i-1]> A[i] then begin 
d:= A[i-1]; A[i-1]:= A[i];A[i]:=d;end;
end;end;writeln;
for i:=1 to 3 do
writeln(A[i]);end.

1. Допустим,что учитель сказал правду Савелию, тогда у Савелия оценка 4 или 3. У Виталия тогда оценка 3, так как учитель ошибся, а у Аркадия или 5 или 4.
Савелий-4
Виталий-3
Аркадий-5.
ЭТО ВОЗМОЖНО!

2. Допустим, что учитель сказал правду Виталию, тогда у него оценка 4 или 5, тогда у Савелия 5, а у Аркадия 4 или 5, так как учитель ошибся.
Савелий-5
Виталий-4 или 5
Аркадий-4 или 5
НЕ У КОГО НЕТ ОЦЕНКИ 3, А ЭТОГО БЫТЬ НЕ МОЖЕТ

3.Допустим, что учитель сказал правду Аркадию, тогда у него оценка 3, тогда у Савелия 3 или 4, так как учитель ошибся, а у Виталия оценка 3, так как учитель ошибся.
Савелий-3 или 4
Виталий-3
Аркадий-3
НЕ У КОГО НЕТ ОЦЕНКИ 5,А ЭТОГО БЫТЬ НЕ МОЖЕТ.
ответ:
Савелий-4
Виталий-3
Аркадий-5

Var n,k,i,d,m:longint;
    b:array[1..26] of boolean;

procedure writesymbol(j:longint);
begin
write(chr(ord('a')+j-1));
end;

procedure print(x:longint);
var z,h,p:longint;
begin
z := 0;
p := 0;
while true do
begin
p := p + 1;
if b[p] = false then z := z + 1;
if z = x then break;
end;
x := p;
b[x] := true;
writesymbol(x);
end;

function fa_l(a,b:longint):longint;
var s,h:longint;
begin
s := 1;
for h := a to b do s := s * h;
fa_l := s;
end;

begin
read(n,k,m);

d := fa_l(n-k+1,n-1);

for i := k downto 1 do
begin
print((m - 1) div d + 1);
if m mod d = 0 then m := d else
m := m mod d;
d := d div (n - (k - i + 1));
end;
end.