Menghitung Luas Lingkaran

  Keterangan :

    r    = jari-jari lingkaran

    pi   = 3,14

    L   = luas lingkaran
    L   = pi x r x r

program menghitung_luas_lingkaran;

uses windos,wincrt;

var
L,r:real;
ch:char;

begin

clrscr;
write('masukan nilai r= ');
readln(r);
L:=pi*r*r;
writeln('menghitung luas lingkaran=',L:10:2,'cm2');
ch:=readkey;

end.