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

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.