Program rumus Bangun Datar

program rumus_Bangun_datar;
uses wincrt;
var
a,al,p,lb,L,r,s1,s2,t:integer;
L2:real;
const
pi=3.14;
begin
clrscr;
repeat
a:=6;
writeln('Program rumus Bangun Datar Araa');
writeln;
writeln('=============================');
writeln;
writeln('Menu pilihan');
writeln;
writeln('________________');
writeln('1. Menghitung Luas Persegi');
writeln('2. Menghitung Luas Persegi Panjang');
writeln('3. Menghitung Luas Lingkaran');
writeln('4. Menghitung Luas Segitiga');
writeln('5. Menghitung Luas Jajaran Genjang');
writeln('6. Keluar');
writeln;
writeln('***************');
writeln;
writeln('tentukan menu pilihan');
writeln('=====================');
readln(a);
case a of
1:begin
write('masukkan sisi persegi:');readln(s1);
write('masukkan sisi persegi:');readln(s2);
L:=s1*s2;
write('Luas persegi adalah:',L);readln;
end;
2:begin
write('masukkan panjang persegi:');readln(p);
write('masukkan lebar persegi:');readln(lb);
L:=p*l;
write('Luas persegi panjang:',L);readln;
end;
3:begin
write('masukkan jari jari:');readln(r);
L2:=pi*r*r;
write('Luas lingkaran:');readln(L2);
end;
4:begin
write('masukkan alas:');readln(al);
write('masukkan tinggi:');readln(t);
L:=al*t div 2;                                    
write('Luas segitiga:',L);readln;
end;
5:begin
write('masukkan alas:');readln(al);
write('masukkan tinggi:');readln(t);
L:=al*t;
write('Luas Jajaran genjang:',L);readln;
end;
end;
writeln('***********');
writeln;
writeln('Thanks For Trying Program Rumus Bangun Datar Ara');
writeln;
writeln('===============');
readln;
clrscr;
until a=6
end.