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

program zz1;

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

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

begin

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

read (D);

i:=0;

while a < = 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.