Даны действительные числа а, b, с. Удвоить эти числа, если а

program zz1;

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

begin

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

read(a);  

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

read(b);

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

read(c);

If (a gt;= b) and (b gt;= c) // проверяем, если производится неравенство Agt;=Bgt;=C, то

Then begin a:=a * 2; b:= b * 2; c:= c * 2; end   // увеличиваем все переменные в два раза

Else begin a:=абс(a); b:=abs(b); c:=abs(c); end;   // иначе, сменяем значения переменных их безусловными значениями

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

END.