Какое число будет выведено в результате работы следующей программы?

var k, s: integer;
begin
к:= 1 ; s:=0;
Repeat s := s+k;
K:=k+2
until k<8;
writeln(s)
end.​