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

s := 1;
x := 2;
while x < 12 do begin
x := x + 2;
s := s + 1;
end;