program luas_ling;
uses WinCrt;
const
phi=3.14;
var
jari_jari:real;
luas_lingkaran:real;
begin
write(' input nilai jari-jari = cm ');readln(jari_jari);
luas_lingkaran:=phi*jari_jari*jari_jari;
writeln('luas lingkaran adalah = cm ' ,luas_lingkaran:0:2);
readln;
donewincrt;
end.