Question

Помогите пожалуйста!!!
Какое число будет выведено в результате работы следующей программы?
var k, s: integer;
bedin
k:=1; s:=0;
repeat s:=s+k;
k:=k+2;
until k меньше 8
writeln (s) ;
end.