Определите значение переменной 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