Program Pascal : Pola Bintang

program pola;
uses wincrt;
var
i,n,j:integer;
begin
readln (n);
for i:=1 to n do
begin
for j:=1 to n do
begin
if (j<i) then
write (' ')
else
write ('*');
end;
writeln;
end;
end.

Program Pascal : Faktorial

program faktorial;
uses wincrt;
var i, N, jumlah: integer;
begin
jumlah:=1;
write('masukkan nilai: ');
readln(N);
write('faktorial dari',N,'adalah=');
for i:=N downto 2 do
begin
write(i,'x');
jumlah:=i* jumlah;
end;
begin
if N<0 then write ('tidak terdefinisi')
else write('1','=',jumlah);
end;
end.

Program Pascal : Deret

program deret;
uses wincrt;
var    n,i,a:integer;
begin
writeln ('masukan banyaknya deret '); readln(n);
i:=1;
repeat a:=a+2 ;
write(a,' ');
i:=i+1;
until i>n ;
end.

Program Pascal : Mencari Modus

program modus;
uses wincrt;
var i,n,j,modus:integer;
x,jml:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
readln(x[i]);
writeln;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
if x[i]=x[j] then
jml[i]:=jml[i]+1;
end;
modus:=1;
for i:=1 to n do
begin
write(jml[i],' ');
if jml[modus]<jml[i] then
modus:=i;
end;
write('modus: ',x[modus],' sebanyak ',jml[modus]+1);
end.

Program pascal : mengubah bilangan Biner ke Desimal

uses wincrt;
var
biner,desimal,sisa,b :longint;
begin
desimal:=0;b:=1;
write(' angka biner ');readln(biner);
b:=1;
repeat
sisa:=biner mod 10;
biner:=biner div 10;
desimal:=desimal+sisa*b;
b:=b*2;
until biner=0;
write(' angka desimal ');writeln(desimal);
end.