Membuat Menu

Pemrograman bahasa pascal ini mejelaskan pembuatan menu dengan 3 data pilihan untuk menghitung luas persegi panjang, luas lingkaran dan luas segitiga didalam satu pemrograman.

program membuat_menu;
uses wincrt;

var
pilih :byte;
P,L,R,A,T,luas : real;

begin
clrscr;
writeln('program menghitung luas bidang sederhana');
writeln;
writeln('1.menghitung luas persegi panjang');
writeln('2.menghitung luas lingkaran');
writeln('3.menghitung luas segitiga');
writeln('masukan pilihan (1-3) :');readln(pilih);
writeln;

if pilih=1 then
begin
writeln('meghitung luas persegi panjang');
writeln;
write('panjang = ');readln(P);
write('Lebar = ');readln(L);
luas:=P*L;
writeln('luas =',luas:8:2);
end;

if pilih=2 then
begin
writeln('meghitung luas lingkaran');
writeln;
write('jari-jari = ');readln(R);
luas:=pi*R*R;
writeln('luas =',luas:8:2);
end;

if pilih=3 then
begin
writeln('meghitung luas segitiga');
writeln;
write('alas = ');readln(A);
write('tinggi = ');readln(T);
luas:=0.5*A*T;
writeln('luas =',luas:8:2);
end;

if pilih>3 then
writeln('kamu ga baca pilihan ya.....dasar bego...pilih 1-3 !');

end.