program PascalSequence;
varn, a: integer;
beginfor n := 1 to 100 dobegina := 2 * n + 3;if a < 100 thenwriteln(a);end;end.
program PascalSequence;
var
n, a: integer;
begin
for n := 1 to 100 do
begin
a := 2 * n + 3;
if a < 100 then
writeln(a);
end;
end.