Народ, мне опять нужна программа, извините :D Такая вот тема: есть программа "Pascal"...

Question

Народ, мне опять нужна программа, извините :D

Такая вот тема: есть программа "Pascal" сортировки 2-ух чисел по возрастанию, она потом выводит эти числа в порядке возрастания. Но как туда добавить 3-е число (переменную) - до сих пор додуматься не могу. Помогите, пожалуйста.

Answer 1

Program n1;
var a,b,c: real;
begin
readln(a,b,c);
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
if b>c then
begin
b:=b+c;
c:=b-c;
b:=b-c;
end;
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
writeln(a,' ',b,' ',c);
end.