Пупкин вася съедает ежедневно на 20 конфет больше, чем в предыдущий день, и ещё 2 конфеты. выведите на экран,через сколько дней количество съеденных конфет превысит 100, если в первый день съедено 12 конфет

Var a,b,c:integer;
begin
 a:=12;
 b:=1;
 while a<100 do begin
  a:=a+20+2;
  b:=b+1; 
  end;
 writeln('Через ',b,' дней Вася съест ',a,' конфет');
end.