Определите, что будет напечатано в результате выполнения следующей программы:

var s, k: integer;
begin
s := 0;
k := 1;
repeat
s := s + k;
k := k + 2
until k<8;
writeln\(s\)
end.