Программа сортировки по возрастанию значений в трех переменных: а, в…

Program sortirovka; uses crt; var a,b,c,e,i: integer; d: array [1… 3] of integer; begin write ('a='); readln (a); write ('b='); readln (b); write ('c='); readln (c); d[1]: =a; d[2]: =b; d[3]: =c; for i: =1 to 2 do if d[i]>d[i+1] then begin e: =d[i]; d[i]: =d[i+1]; d[i+1]: =e; end; for i: =1 to 3 do writeln (d[i]); end.