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

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; неоптимальный, но понятный алгоритм. А в другом случае можноо оптимизировать… как- подумай -