Даны действительные числа x, y, z Если все числа положительны, увеличить их значения в 2 раза; во всех отальных случаях отрицательные числа заменить их модулями, а положительные оставить без изменения. (Надо написать программу на паскале)

program zz1;

var x, y, z:real; / / задаем переменные не целого типа

begin

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

read (x);

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

read (y);

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

read (z);

If (x > 0) and (y > 0) and (z > 0) / / проверяем, если первое число меньше второго, то

Then begin x:=x * 2; y:=y * 2; z:=z * 2; end

else begin if x < 0 then x:=abs (x); if y < 0 then y:=abs (y); if z < 0 then z:=abs (z); end;

write (' x = ', x, ' y = ', y, ' z = ', z); / / выводим ответ

END.