Задача про программированию нужно решить в delphi. ребят помогите!!

Question

даны три числа x,y,z если x<y<z, то числа x,y,z заменить их квадратами, иначе числа x,y,z заменить на противоположные

Елена Мензелева · Accepted Answer

if(x<y)and(y<z)then begin x:=x*x;y:=y*y;z:=z*z; end
else begin x:=x*-1;y:=y*-1;z:=z*-1;end;
ну и еще всякие readln, writeln, в варе все объявить.. . разберешься, нужно ж хоть что-то самому делать.