Algoritma menghitung banyak luas bangun

kali ini saya mencoba share nih gan&sis tentang algoritma menghitung banyak luas bangun sekaligus dengan algoritma menunya, kalo masih ada yang kurang mohon maklumin yee, ini saya ambil dari tugas kuliah saya :-D

program menghitungluas;

deklarasi
      a,t,r,p,lb,s,phi,L,pil:riil

procedure menu;
deskripsi
              write (‘Pilih program yg anda gunakan’)
              write (’a.segitiga’)
              write (’b.persegi panjang’)

              write (’c.lingkaran’)
              write (’d.jajar genjang’)

   write (‘e.persegi’)

   write (‘f. keluar’)
end

procedure segitiga
deklarasi

a,t,L:riil

deskripsi
            write (‘Menghitung luas segitiga’)
            read(a,t)
            L <- 0.5*a*t
            write (‘Luas segitiga adalah=’,L)
end

procedure persegipanjang;
deklarasi

p,lb,L:riil;

deskripsi
            write (‘Menghitung luas persegi panjang’);
            read (p,lb);

L <- p*lb
            write (‘Luas persegi panjang adalah=’,L)

end

procedure lingkaran
deklarasi

            r,phi,L:riil

deskripsi

           phi=3.14
write (‘Menghitung luas lingkaran’)
           read (r);
           L <- phi*r*r
           write (‘Luas lingkaran adalah=’,L)
end

procedure jajargenjang
deklarasi

a,t,L:riil

deskripsi
            write (‘Menghitung luas jajar genjang’)
            read(a,t)
            L <- a*t
            write (‘Luas jajar genjang adalah=’,L)
end

procedure persegi
deklarasi

s,L:riil

deskripsi
          write (‘Menghitung luas persegi’)
          read (s)
          L <- s*s
          write (‘Luas persegi adalah=’,L)
end

menu

write(‘pilihan anda?’)

read(pil)

if pil <- a then

            segitiga

            write(‘pilihan anda?’)

            read(pil)

else if pil <- b then

            persegipanjang

            write(‘pilihan anda?’)

            read(pil)

else if pil <- c then

            lingkaran

            write(‘pilihan anda?’)

            read(pil)

else if pil <- d then

            jajargenjang

            write(‘pilihan anda?’)

            read(pil)

else if pil <- e then

            persegi

            write(‘pilihan anda?’)

            read(pil)

else if pil <- f then

            exit

else

             write(‘pilihan anda belum terdaftar, silahkan coba lagi??’)

            write(‘pilihan anda?’)

            read(pil)

end if

end.