soal4delia

program delia;
    uses crt;
    var  luas, jari_jari : real;
BEGIN
    clrscr;
    writeln('====================================================');
    writeln('Selamat datang di program Hitung luas lingkaran !');
    writeln('====================================================');
    writeln('');
    write('Masukan Besar Jari-jari = ');readln(jari_jari);
    luas:=(3.14) * (jari_jari*jari_jari);
    write('Luas Lingkarannya adalah = ', luas:0:2);
END.