Составь метод решения задачки:расположить три числа 1 7 4 в порядке

var a, b, c: integer;

begin

a := 1;

b := 7;

c := 4;

if (alt;=b) and (alt;=c) and (blt;=c) then writeln(a, b, c);

if (alt;=b) and (alt;=c) and (clt;=b) then writeln(a, c, b);

if (blt;=a) and (blt;=c) and (alt;=c) then writeln(b, a, c);

if (blt;=a) and (blt;=c) and (clt;=a) then writeln(b, c,a);

if (clt;=a) and (clt;=b) and (alt;=b) then writeln(c, a, b);

if (clt;=a) and (clt;=b) and (blt;=a) then writeln(c, b, a);

end.