#Program_Komputer | Program Menghitung Luas Lingkaran

Program Menghitung_Luas_Lingkaran;
Uses dos, crt;
Var
   L,r:real;
   ch:char;
Begin
     clrscr;
     writeln('Menghitung Luas Lingkaran');
     writeln;
     write('Masukkan nilai jari-jari lingkaran (cm) = ');
     readln(r);
     L:=22/7*sqr(r);
     writeln('Luas Lingkaran = ',L:10:2,' cm2');
     Ch:=readkey;
End.