Pola bilangan 10, 13, 16, 19, 22, 25, by : turbo pascal

uses wincrt ;
var
i:integer;
Begin
i:= 7;
while i<26 do
Begin
writeln(i);
i:=i+3;
end;end.