contoh program turbo pascal

 saya akan memberikan sebuah program pascal , yang nantinya akan membentuk bintang 

 . karena saya mendapat tugas dari dosen saya 

program bintang;

uses crt;

procedure kotak(m,n      :integer);

var

a,b,c:integer;

begin

   for a:=1 to m do

   begin

   for b:=n downto n do

   write (' ');

   for c:=0 to m do

   write ('*');

   writeln(' ');

   end;

  end;

var

   mo,no:integer;

begin

clrsr;

mo:=4;

   no:=5;

kotak(mo,no);

   writeln;

end.

www.sosialdc.blogspot.com