Вопрос по информатике:

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

Определите значение переменной s после выполнения следующего фрагмента программы:
s:=24;
m: = 3456;
while s > 10 do
begin
m:=m mod 10;
s:=s-m
end; s: = s+m;