Ввести с клавиатуры два числа…

uses crt; beginx,y,z: integer; readln (x,y); if (x<0) then beginif (x>y) then z: =x; if (y>x) then z: =y; end else beginif (x>0) then beginif (x>y) z: =y; if (y>x) z: =x; end; write (z); end.