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

program zz1;

var a, D, i, j:integer; // задаем переменные целого типа

mas:array[1..1000] of integer; // заводим одномерный массив целого типа

begin

write( введите заданное число D );  // вводим с клавиатуры число

read(D);  

i:=0;

while a lt;= D do // организуем цикл пока не будет введено число больше данного D

begin

i:=i+1;

read(a);  // вводим число

mas[i]:=a;

end;

writeln(  номер первого члена прогрессии, превысившее данное число D = , i); // выводим ответ

for j:=1 to i do // выводим члены прогрессии

write(mas[j], );

end.