Всі умови | Умова: Дано дійсні числа 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.