Решите, пожалуйста. Буду очень благодарен!

+ 0 -

Alitara

11 июня 2014 г., 18:59:33 (9 лет назад)

var x,y,z:integer;
begin
  writeln('Введите x');
  readln(x);
  writeln('Введите y');
  readln(y);
  writeln('Введите x');
  readln(z);
  if (x<=z)and(x<=y)and(y<=z) then writeln('Ответ: ',x,' ',y,' ',z)else
  if (x<=z)and(x<=y)and(y>z) then writeln('Ответ: ',x,' ',z,' ',y)else
  if (y<=x)and(y<=z)and(x<=z) then writeln('Ответ: ',y,' ',x,' ',z)else
  if (y<=x)and(y<=z)and(x>z) then writeln('Ответ: ',y,' ',z,' ',x)else
  if (z<=x)and(z<=y)and(y>=x) then writeln('Ответ: ',z,' ',x,' ',y)else
  writeln('Ответ: ',z,' ',y,' ',x)
end.