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

Ответ:13 20

Объяснение:вот прога

program progra;

uses crt;

var

x,y:integer;

begin

x:=10;

y:=15;

while y<16 do

if x<=y then begin

x:=x+5;

y:=y-5;

end

else begin

x:=x-3;

y:=y+5;

end;

writeln(x,' ',y);

end.