Program Mencari Luas Persegi, Persegi Panjang, Lingkaran, dan Segitiga Pada Pascal

Dibawah ini adalah contoh program mecari luas persegi, persegi panjang, lingkaran, dan segitiga pada pascal program ini saya buat sederhana,  mudah-mudahan berguna buat teman-teman sekalian.

USES CRT;
VAR
NOMOR:BYTE;
ALAS,TINGGI,PANJANG,LEBAR,SISI,JARI,LUAS:REAL;
BEGIN
CLRSCR;
WRITELN('==============================');
WRITELN('    PROGRAM MENCARI LUAS      ');
WRITELN('==============================');
WRITELN(' ');
WRITELN(' ');
WRITELN('==============================');
WRITELN('NO | KETERANGAN   ');
WRITELN('==============================');
WRITELN('1. | PERSEGI');
WRITELN('2. | PERSEGI PANJANG');
WRITELN('3. | LINGKARAN');
WRITELN('4. | SEGITIGA');
WRITELN('==============================');
WRITELN(' ');
WRITE('MASUKKAN NOMOR LUAS YANG INGIN DICARI : ');READLN(NOMOR);
IF NOMOR = 1 THEN
BEGIN
CLRSCR;
WRITE('MASUKKAN SISI : ');READLN(SISI);
LUAS:= SISI*SISI;
WRITELN('LUAS PERSEGI ADALAH :',LUAS:8:2);
END
ELSE IF NOMOR=2 THEN
BEGIN
CLRSCR;
WRITE('MASUKKAN PANJANG : ');READLN(PANJANG);
WRITE('MASUKKAN LEBAR : ');READLN(LEBAR);
LUAS:=PANJANG*LEBAR;
WRITELN('LUAS PERSEGI PANJANG ADALAH :',LUAS:8:2);
END
ELSE IF NOMOR=3 THEN
BEGIN
CLRSCR;
WRITE('MASUKKAN JARI-JARI : ');READLN(JARI);
LUAS:=3.14*JARI*JARI;
WRITELN('LUAS LINGKARAN ADALAH :',LUAS:8:2);
END
ELSE
BEGIN
CLRSCR;
WRITE('MASUKKAN ALAS : ');READLN(ALAS);
WRITE('MASUKKAN TINGGI : ');READLN(TINGGI);
LUAS:=0.5*ALAS*TINGGI;
WRITELN('LUAS SEGITIGA ADALAH :',LUAS:8:2);
END;
READKEY;
END.

hasil