Ввести с клавиатуры три числа (x,y,z). Если x

program num;var x,y,z:integer;beginwriteln (\'Enter x,y,z\'); // ввод трех целых чисел через пробелreadln (x,y,z);if (x<y) and (y<z) then beginx:=2*x; y:=y*2; z:=z*2;write(x,\' \',y,\' \',z);endelse if (z<y) and (y<x) then // при этом условии x будет наибольшим beginx:=x*x; write(x); endelse beginx:=0; y:=0; z:=0;write(x,\' \',y,\' \',z);endend.