Даны целые числа x, y, z. если x ≤ y ≤ z, то вывести на экран квадраты этих чисел. если неравенство не выполняется, то вывести на экран наибольшее из чисел. , нужно написать программу на паскале с обязательным использованием условных вложенных операторов.
program xyz;
var
x, y, z, b: Real;
begin
Write ('Введите X, Y, Z: ');
ReadLn (x, y, z);
if (x <= y) and (y <= z) then begin
WriteLn ('Квадраты чисел: ', x * x :10 :5, y * y :10 :5, z * z :10 :5)
end else begin
if x > y then
if x > z then
b := x
else
b := z
else
if y > z then
b := y
else
b := z;
WriteLn ('Наибольшее число = ', b :10 :5);
end;
ReadLn;
end.