program luaslingkaran;

var
    r,luas:real;
begin
write('masukan jari-jari lingkaran:');
readln(r);

luas :=3.14*r*r;

writeln('luas lingkaran adalah:', luas:0:2);

  readln;
end.