Program Pascal Rumus Matematika

program lat;
uses wincrt;
procedure segitiga;
var
l:real;
a,t:real;
begin
write('alas :');readln(a);
write('tinggi :');readln(t);
l:=a*t/2;
end;
procedure p_panjang;
var
luas:real;
p,l:byte;
begin
write('panjang :');readln(p);
write('lebar :');readln(l);
luas:= p*l;
writeln('Luas =',luas:2:2);
end;
procedure persegi;
var
l:real;
s:byte;
begin
write('sisi :');readln(s);
l:=s*s;
writeln('luas =',l:2:2);
end;
var
pilih:byte;
lagi:char;
begin
repeat
clrscr;
writeln (' MENU UTAMA ');
writeln ('- - - - - - - - - - - - - - - - - - - ');
writeln (' 1. Hitung Luas segitiga ');
writeln (' 2. Hitung Persegi panjang ');
writeln ('- - - - - - - - - - - - - - - - - - - ');
write ('Masukan nomor pilihan (1-2) :');readln(pilih);
case pilih of
1:segitiga;
2:p_panjang;
end;
write('Menghitung lagi???(Y/N) :');readln(lagi);
until upcase (lagi)<> 'Y';
end.