Program Bintang

program bintang;

var
b,i,j,n,m: integer;
label l;
begin
write('Masukkan sebuah bilangan ganjil : ');readln(n);
if (n mod 2) = 0 then goto l;
i:=1;
m:=n;
while i < n+2 do
 begin
  if m>0 then
  write(' ':m);
  if i mod 2 <> 0 then
   begin
    for j:= 1 to i do
     begin
      write('*');
     end;
    if m > 0 then
   if m > 0 then
   m:= m-1
   else m:= 0;
   end;
   i:= i+1;
  
   writeln;
 end;
 l:
readln;
end.

Bilangan Pangkat n

program pangkat_n;
uses crt;
var
bildasar,pangkat,bilawal,bilakhir : integer;
begin
clrscr;
writeln('Program Pangkat');
writeln;
write('Masukkan sebuah bilangan : ');readln(bildasar);
write('Masukkan pangkat awal    : ');readln(bilawal);
write('Masukkan pangkat akhir   : ');readln(bilakhir);
writeln;
writeln;
writeln('Pangkat       Kelipatan ',bildasar);
writeln;
for pangkat := bilawal to bilakhir do
 begin
  write(pangkat:4);
  writeln(exp(ln(bildasar)*pangkat):20:0);
 end;
writeln;
writeln('Created by : Unknown');
write('Modified by : Sylvert Tahalea');
readkey;
end.