Program Perulangan WHILE..DO di PASCAL

Program Perulangan WHILE..DO di PASCAL, programnya kurang lebih sih dengan for to do kan sama-sama perulangan :D

cekidoooott

Program I

           

            uses wincrt;

var

             i : integer;

begin

                   i := 0;

                   while i < 5 do

             begin

                  writeln(i, ' Belajar Pemrograman Pascal');

                    i := i + 1;

             end;

end.

            Program II

                                   

                                    uses wincrt;

var

i:integer;

begin

clrscr;

  i:=1;

                               while i<=10 do

                   begin

                   write(i,' ');

                          i:=i+1;

   end;

readln;

end.