Ввести с клавиатуры два числа X и Y .Присвоить Z значение большего из них,если Х<0 и меньшего если Х>0.

uses crt;

begin

x,y,z:integer;

readln(x,y);

if (x<0) then begin

if (x>y) then z:=x;

if (y>x) then z:=y;

end else begin

if (x>0) then begin

if (x>y) z:=y;

if (y>x) z:=x;

end;

write(z);

end.