var n, a: integer;
begin
readln(n);
for a:=1 to n * 3 do if a mod 3 = 1 then writeln(a)
end.
===== PascalABC.NET =====
SeqGen(ReadInteger, 1, p -> p + 3).Print
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var n, a: integer;
begin
readln(n);
for a:=1 to n * 3 do if a mod 3 = 1 then writeln(a)
end.
===== PascalABC.NET =====
begin
SeqGen(ReadInteger, 1, p -> p + 3).Print
end.