CONTOH PROGRAM DERET

DERET

program deret;

uses wincrt;

var n,d:integer ;

begin

     d:=2;

     for n:=2 to 6 do

     begin

     write (d, ' ');

     d:=d+2

     end;

end.