11. PROGRAM MENCARI LUAS LINGKARAN

uses crt;
var L,r: real;
begin
clrscr;
write('Jari-jari lingkaran: '); readln(r);
L:= pi * sqr(r);
writeln('Luas lingkaran adalah', L:0:0);
readln;
end.