program cnth_function_deir; uses wincrt; var pil:integer; luas:real; procedure bujur_sangkar; var sisi:integer; begin clrscr; gotoxy(14,5);write('###___Mencari Luas Bujur Sangkar___###'); gotoxy(20,6);write('Input Sisi Panjang : '); gotoxy(20,7);write('Luas Bujur Sangkar adalah : '); gotoxy(41,6);readln(sisi); luas:=sisi*sisi; gotoxy(47,7);write(luas:6:1); repeat until keypressed; end; procedure siku_siku; var alas,tinggi:integer; begin clrscr; gotoxy(10,5);write('Mencari Luas Segitiga Siku-siku'); gotoxy(14,6);write('Input Panjang Alas : '); gotoxy(14,7);write('Input Tinggi Segitiga : '); gotoxy(14,8);write('Luas Segitiga adalah : '); gotoxy(35,6);readln(alas); gotoxy(38,7);readln(tinggi); luas:=0.5*alas*tinggi; gotoxy(36,8);write(luas:6:1); repeat until keypressed; end; begin clrscr; gotoxy(14,2);write('Program Menghitung Luas
Ilmu Adalah Cahaya Dunia