Program menghitung luas persegi panjang, lingkran, segitga

program xy;
uses crt;
var
pilih:integer;
luas,panjang,lebar,jari,tinggi,alas:real;
begin
clrscr;
textbackground(1);
textcolor(15);
gotoxy(14,8);
write(”);
gotoxy(14,9);
write(‘pilih salah satu menu:’);
gotoxy(14,10);
write(‘1.luas persegi panjang’);
gotoxy(14,11);
write(‘2.luas lingkaran’);
gotoxy(14,12);
write(‘luas segitiga’);
gotoxy(14,13);
write(”);
gotoxy(14,14);
write(‘ pilihan anda(1/2/3):’);
gotoxy(14,15);
write(”);
gotoXY(42,14);readln(pilih);
textbackground(0);
textcolor(15);
case pilih of
1 :Begin
Clrscr;
Writeln(‘menghitung luas empat persegi panjang :’);
Write (‘Lebar =’);Readln(lebar);
Write (‘Panjang =’);Readln(panjang);
Luas :=Panjang*Lebar;
Writeln(‘ Luasnya =’,Luas);
End;
2 :Begin
Clrscr;
Writeln(‘menghitung luas lingkaran :’);
Write(‘ jari-jari = ‘);Readln(jari);
Luas :=Pi*sqr(jari);
Writeln(‘Luasnya = ‘,Luas);
End;
3 :Begin
Clrscr;
Writeln(‘menghitung luas segitiga siku-siku :’);
Write(‘Alas = ‘);Readln(Alas);
Write(‘ Tinggi = ‘);Readln(Tinggi);
Luas :=1/2*Alas*Tinggi;
Writeln(‘ Luasnya = ‘,Luas);
End;
Else Clrscr;

end;
readln;
End.