Розв’язок задачі з Абрамова №37

Всі умови | Умова: Дано дійсні числа a, b, c. Подвоїти ці числа, якщо a ≥ b ≥ c, і замінити їх абсолютним значенням, якщо це не так. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №37)

program Pr37;
var
  a, b, c : integer;
begin
  readln(a, b, c);
  if (a >= b) and (b >= c) then
  begin
    a := a * 2;
    b := b * 2;
    c := c * 2;
  end
  else
  begin
    a := abs(a);
    b := abs(b);
    c := abs(c);
  end;

  writeln(a,' ',b,' ',c);

  readln;
end.