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

Изначально s=0, i=5. Условие i > 0 выполняется.

Итерация 1: s=0+5=5, i=5-1=4. Условие выполняется.

Итерация 2: s=5+4=9, i=4-1=3. Условие выполняется.

Итерация 3: s=9+3=12, i=3-1=2. Условие выполняется.

Итерация 4: s=12+2=14, i=2-1=1. Условие выполняется.

Итерация 5: s=14+1=15, i=1-1=0. Условие НЕ выполняется.

Итого: s = 15, i = 0.