Program Menu Pada Pascal

Perhatikan listing program yang telah saya buat berikut ini :

uses crt;
label hoho;
var
a,b,c,d,e,f,g,h,i,menu :integer;
nama,kls,npm : string;
begin
hoho:
clrscr;
writeln ('--------menu---------');
writeln('1.biodata');
writeln('2.deret');
writeln('3.luas persegi panjang');
writeln('4.nilai bilangan prima');
writeln('5.exit');
writeln('----------------------') ;
writeln ('pilihan [1...5...]');
readln(menu);
case menu of

1: begin
clrscr;
write ('1.biodata');
writeln;
write ('masukkan nama= ');
readln(nama);
write ('masukkan npm=');
readln(npm);
write ( 'masukkan kelas=');
readln(kls);
writeln ('nama saya=', nama);
writeln ('npm saya=', npm);
writeln ('berada di kelas=',kls);
readln;
goto hoho;
end;

2: begin
clrscr;
write ('2.deret');
writeln;
write('masukkan angka=');
readln(a);
for b := 1 to a do
begin
for c := 1 to b do
write ('*');
writeln;
end;
begin
for b := a downto 1 do
begin
for c := b downto 1 do
write ('*');
writeln;
end;
readln;
goto hoho;
end;
end;

3: begin
clrscr;
write ('3.luas persegi panjang');
writeln;
write ('masukkan panjang=');
readln(d);
write ('masukkan lebar =');
readln(e);
f:= d * e;
writeln( 'luas=',f);
readln;
goto hoho;
end;

4: begin
clrscr;
write('4.kondisi');
writeln;
write('masukkan nilai=');
readln(g);
writeln;
h:=0;
for i :=1 to g do
h:=h+1;
if g = 1 then
begin
write (g,'adalah bilangan prima');
end
else
begin
if (h=2) then
begin
writeln (g, ' adalah bilangan prima')
end
else
begin
writeln (g, ' adalah bukan bilangan prima');
end;
end;
readln;
goto hoho;
end;

5: begin
write('exit');
readln;
exit;
end;
else
begin
clrscr;
writeln('pilihan 1...5');
readln;
goto hoho;
end;
end;
end.
begin
clrscr;
writeln('pilihan 1...5');
readln;
goto hoho;
end;
end;
end.

maka outputnya akan seperti gambar-gambar dibawah ini :

Tampilan diatas adalah tampilan menu utama, jika kita mengetikkan angka 1, maka tampilan selanjutannya yang akan muncul adalah :

Lalu masukkan angka yang akan kita gunakan sebagai bilangan-bilangan pada tiap-tiap matrik, seperti berikut :

Setelah itu tekan enter untuk kembali ke menu utama, dan melakukan pilihan operasi penjumlahan ataupun pengurangan, seperti berikut :

Gambar diatas adalah hasil tampilan setelah mengetikkan/menginput angka 2 dan kemudian menekan enter. Hasilnya akan terlihat seperti gambar diatas.

Tekan enter kembali untuk melakukan operasi pengurangan, dan kemudian ketikkan angka 3, maka tampilannya akan seperti berikut :

Tampilan diatas adalah hasil dari pengurangan Matrik II dikurang Matrik I.

Untuk keluar ketikkan/input angka 4, seperti berikut :

Maka akan kembali ke listingan program , di command prompt.

a