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

program num;
var x,y,z:integer;
begin
writeln (Enter x,y,z); // ввод трех целых чисел через пробел
readln (x,y,z);
if (xlt;y) and (ylt;z) then
begin
x:=2*x; y:=y*2; z:=z*2;
write(x, ,y, ,z);
end
else if (zlt;y) and (ylt;x) then // при этом условии x будет наивеличайшим
begin
x:=x*x; write(x);
end
else
begin
x:=0; y:=0; z:=0;
write(x, ,y, ,z);
end
end.