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

//PascalABS.netvar 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.