varx,y,z:integer;begin
wread(x,y);
if x<0 then if x <= y then z:=x else z:=yelse if x >=y then z:=x else z:=y;
Writeln(z);readln;end.
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
var
x,y,z:integer;
begin
wread(x,y);
if x<0 then
if x <= y then
z:=x
else
z:=y
else
if x >=y then
z:=x
else
z:=y;
Writeln(z);
readln;
end.
P.S. Если понравилось решение не забудь отметить как лучшше. ;)