написать программу в паскале котрая расставляет три числа в порядке возрастания

program ttt;var i,j,a,b,c:integer;beginreadln(a);readln(b);readln(c);if (a>b) then if (a>c) then begin write(a);if (b>c) then begin write(b);write(c) end; else begin write(c); write(b);endend; elseif (b>c) then begin write (b); if(a>c)then begin write(a); write(c);end; else begin write(c); write(a);end; end; else begin write(c); if(a>b) then begin write(a);write(b)end; else begin write(b); write(a); end;end;end;неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -;)