Определите значения переменных s и i после выполнения фрагмента программы:
s:=0; i:=5;
while i>0 do
begin
s:=s+i;
i:=i-1;
end;
s = 15, i = 0
s = 0, i = -1
s = 5, i = 0
s = 15, i = 5