Даны действительные числа x,y,z Если все числа положительны, увеличить их значения

program zz1;

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

begin

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

read(x);  

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

read(y);

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

read(z);

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

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

else begin if x lt; 0 then x:=абс(x);if y lt; 0 then y:=abs(y);if z lt; 0 then z:=abs(z); end;

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

END.