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