contoh pola bilangan dengan while do

(4-7-10-13-16-19)
uses wincrt;
var
i:integer;
begin
i:=1;
while i<19 do
      begin
      i:=i+3;
      write(i, ' - ');
      end;
end.

(5-25-125-625-3125-) 
  uses wincrt;
var
i:integer;
begin
i:=1;
while i<3125 do
      begin
      i:=i*5;
      write(i, ' - ');
      end;
end.

(6,9,12,15,18,21)

uses wincrt;
var
i:integer;
begin
i:=3;
while i<21 do
      begin
      i:=i+3;
      write(i, ' - ');
      end;
end.

(3,6,12,24,48,96)

uses wincrt;
var
i:integer;
begin
i:=3;
while i<99 do
      begin
       write(i, ' - ');
      i:=i*2;
    
      end;
end.