Решить .язык паскаль.решать по-простому без всяких массивов,​

Program zadanie;

Var a,b,s1,n:integer;

Begin

Writeln('Введите 3-х значное целое число');

readln(s1);

If (s1>=100) and (s1<=999) then begin

for n:=100 to s1 do begin

a:=n div 100+(n div 10) mod 10;

b:=(n mod 100) mod 10+(n div 10) mod 10

end;

if a<b then writeln(b,a)

else writeln(a,b)

end;

writeln('Неправильное число.')

end.