Дана арифметическая прогрессии 2, 6, 10, записать пронрамму опрлеления номера первого члена прогрессии, превысившего заданное число в. вывести искомый номер и все члены прогрессии.

//PascalABS.net

var count,a,b:integer;
begin
  readln(b);
  count:=1;
  a:=2;
  repeat
    write(a:5);
    a:=a+4;
    count:=count+1;    
  until a>b;
  writeln(a:5);
  writeln('Номер следующего члена прогреммии ',count);
end.