Помогите решить пожалуйста​

Question

Помогите решить пожалуйста​

---

Answer 1

var a,b:integer;

begin

writeln('Введите значение a: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

a:=abs(a);

b:=abs(b);

if b>a then

writeln(b,'>',a)

else

if a>b then

writeln(a,'>',b);

end.