Вопрос пользователя:
Ввести с клавиатуры два числа 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.