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/