Question

ПОМОГИТЕ ПРОШУ СРОЧНО ДАЮ ВСЕ БАЛЛЫ ЧТО ИМЕЮ

Answer 1

Ответ:

x=13   y=20

Объяснение:

Pascal

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=', x, ' y=',y)  ;

end.