program z1;
var a,b:integer;
begin
write('Введите первое число:');
readln(a);
write('Введите второе число:');
readln(b);

if a>b then
  a:=-a
else
  b:=-b;

writeln('Результат работы программы:');
writeln('А=',a,' B=',b);
readln;
end.