Question

напишите программу которая находит первые n натуральных чисел у которых остаток от деления на 3 равен 1.
PascalABC.NET

Answer 1

var n, a: integer;

begin

   readln(n);

   for a:=1 to n * 3 do if a mod 3 = 1 then writeln(a)

end.

Answer 2

===== PascalABC.NET =====

begin

 SeqGen(ReadInteger, 1, p -> p + 3).Print

end.