Сколько раз будет выполнен цикл?

а) for i:=0 to 9 do k:=k+1

b) for i:=11 to 11 do k:=k+1

c) d:=4;

for i:=1+d to 15-d do k:=k+1

d) for i:=-4 to 5 do k:=k+1
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while k < 30 do begin
k:=k+3;
s:=s+k;
end;
write(s);
end.