program luas_dan_keliling_lingkaran

program luas_dan_keliling_lingkaran;
uses crt;
var
        jarijari:integer;
const
        phi=3.14;
begin
clrscr;
        writeln('Program Menghitung Luas dan Keliling Lingkaran');
        writeln('==============================================');
        write('masukan jari-jari:');readln(jarijari);
        writeln;
        writeln('Keliling Lingkaran adalah: ',phi*2*jarijari:0:2);
        writeln('luas lingkaran adalah: ',phi*jarijari*jarijari:0:2);
        readln;
end.