Даны действительные числа а, b, с. Удвоить эти числа, если а ≥ b ≥ с, и заменить их абсолютными значениями, если это не так.

program zz1;

var a, b, c, p:real; / /задаем переменные не целого типа

begin

write ('введите первое число '); / /вводим с клавиатуры первое число

read (a);

write ('введите второе число '); / /вводим с клавиатуры второе число

read (b);

write ('введите третье число '); / /вводим с клавиатуры третье число

read (c);

If (a > = b) and (b > = c) / / проверяем, если выполняется неравенство A>=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; / / иначе, заменяем значения переменных их абсолютными значениями

write (' a = ', a, ' b = ', b, ' c = ', c); / / выводим ответ

END.