Ответ:

var x, y:integer;

begin

read(x, y);

if x>y then

x:=x-2 ;

y:=y+4 ;

else x:=x+5;

y:=y-3;

writeln(x, '_', y);

end.

Объяснение:

Цикл ветвления с условием