Определите значение переменной y после выполнения следующего фрагмента программы: х: =25; у: =-20; while x*y< 0 do begin x: =x-5; y: =y+2 end;

Var x,y:integer;
begin
  x:=25;
  y:=-20;
  while x*y<0 do begin
    x:=x-5;
    y:=y+2
  end;
  writeln('x=',x,' y=',y);
end.

// x = 0
// y = -10