program hitung_lingkaran; uses crt; type warna=(merah, kuning, biru); const PI=3.14; var jari2:integer=7; warna_lingkaran:warna=merah; function luas_lingkaran:real; begin luas_lingkaran:=PI*jari2*jari2; end; procedure kel_lingkaran(jari2:integer); begin write('Keliling Lingkaran = '); writeln(PI*(jari2+jari2):4:2, ' cm'); end; begin clrscr; writeln('==PROGRAM MENGHITUNG LUAS LINGKARAN=='); writeln('==---------------------------------=='); writeln('Diketahui: jari-jari lingkaran = ',jari2,' cm'); writeln('Warna Lingkaran = ',warna_lingkaran); writeln('Luas Lingkaran = ',luas_lingkaran:4:2, ' cm'); kel_lingkaran(jari2); readln; end. https://www.duniailkom.com/tutorial-belajar-pascal-struktur-dasar-kode-program-pascal/