Menghitung luas bangun dengan Bahasa Pascal

Program Bahasa Pascal (Procedure)
Mengitung bangun datar dengan mengunkan bahasa pemrograman pascal, dan kali saya buat dengan mengunakan subprogram ( procedure). Dan anda bisa tau perbedaan pungsi dari subprogram function dan procedure.
Dibawah ini sourcecode pemrograman tersebut.
program menghitung_bangun_datar;
uses wincrt;
const
phi=3.14;
var
sisi,P,L,r,luas,kell,no:integer;
ls,kl:real;
lagi:char;
ulang:boolean;
procedure garis;
begin
writeln(‘============================================’);
end;
procedure bujursangkar;
begin
write(‘masukan sisi =’); readln(sisi);
luas:=sisi*sisi;
kell:=4*sisi;
writeln;
writeln(‘luas bujur sangkar=’,luas);
writeln(‘keliling bujur sangkar=’,kell)
end;
procedure persegipanjang;
begin
write(‘masukan panjang =’); readln(P);
write(‘masukan lebar =’); readln(L);
luas:=p*l;
kell:=2*(p+l);
writeln;
writeln(‘luas persegi panjang=’,luas);
writeln(‘keliling persegi panjang=’,kell);
end;
procedure lingkaran;
begin
write(‘masukan jari-jari/r =’); readln(r);
ls:=phi*r*r;
kl:=2*phi*r;
writeln;
writeln(‘luas lingkaran=’,luas);
writeln(‘keliling lingkaran=’,kell);
end;
begin
ulang:=true;
while ulang=true do begin
clrscr;
writeln(‘>>> pilih menu <<<’);
writeln(’1. menghitung luas dan keliling bujur sangkar’);
writeln(’2. menghitung luas dan keliling persegi panjang’);
writeln(’3. menghitung luas dan keliling lingkaran’);
garis;
write(‘masukan no pilihan program=’); readln(no);
case no of
1:begin
lagi:=’y';
while lagi=’y’ do
begin
clrscr;
writeln(‘>>>menghitung luas dan keliling bujur sangkar’);
garis;
bujursangkar;
write(‘jika mau menghitung lagi tekan y/n =’); readln(lagi);
end;
end;
2:begin
lagi:=’n';
clrscr;
repeat
begin
clrscr;
writeln(‘>>>menghitung luas dan keliling persegi panjang’);
garis;
persegipanjang;
end;
write(‘jika mau menghitung lagi tekan y/n =’); readln(lagi);
until lagi=’n';
end;
3:begin
lagi:=’y';
while lagi=’y’ do
begin
clrscr;
writeln(‘>>>menghitung luas dan keliling lingkaran’);
garis;
lingkaran;
write(‘jika mau menghitung lagi tekan y/n =’); readln(lagi);
end;
end;
else
writeln(‘tidak ada menu’);
end;
end;
end.