Rumus lingkaran

program perhitungan;
uses wincrt;
var a,b:real;
begin
write('jari-jari ; '); readln(a);
b:=(22/7)*a*a;
writeln('hasil ; ',b:0:0);
readln;
donewincrt;
end.