вот так мона и, навено, нуно сделать
будем выводить на консоль натуральные числа начиная с тройки до тех пор
пока какое-то натуральное число не превысит некий предел Lim
кстати мы можем заюзать цикл с параметром если сможем заранее вычислить число выводимых натуральных чисел
это можно сделать по формуле n-ого члена ряда и по значению Lim-а
an=3+5(n-1)=5n-2; если, к примеру, Lim=19, то 5n-2=19; n=4,...(нам не нужна дробная часть, поэтому в проге будем юзать деление нацело div) или в общем виде 5n-2=Lim; n=(Lim+2)/5
будет типа этого:
Код
const
Lim = 20;
var
i: Word;
v: LongInt;
begin
v := -2;
for i := 0 to (Lim + 2) div 5 - 1 do begin
v := v + 5;
Write(v, ' ')
end;
ReadLn
end.