Определите значения переменных s и i после выполнения программы.
var s, i: integer;
begin
s:= 0;
i:= 3;
repeat
s:= s + 5 div i;
i:= i - 1;
writeln \('s=', s\);
writeln \('i=', i\);
until i < 1
end.