Program mebuat piramid bintang di pascal:
*
**
***
****
susunan dalam pascal:

program bintang_114;
uses crt;
var
   e114,d114,y114 : integer;
begin
     clrscr;
     writeln('  **************************');
     writeln('   --==PROGRAMS BINTANG==-- ');
     writeln('******************************');
     writeln;
     write('Masukan Jumal bintang : ');readln(e114);
     for d114:=1 to e114 do
     begin
          write('*': e114);
          for y114 := 1 to (1*d114-1) do
          begin
              write('*');
          end;
     writeln;
     end;
     readln;

end.

Dalam .pas download
Dalam .exe download