CONTOH PROGRAM PEMGULANGAN ANGKA

PENGULANGAN ANGKA

Program pengulangan_angka_dari_1_sampai_13;

uses wincrt;

var    

   i:integer;

   hasil : integer;

begin

     i:=2;

     repeat

    write (i, ' ');

     i:= i+2;

    until i>10;

end.