program Obwod_i_pole_kola;

{wlasne_pi-stala pi zdefiniowana przez uzytkownika}
const wlasne_pi=3.14;
var r,pole_kola,obwod_kola:real;
begin
   writeln('Wczytaj promien kola w cm: ');
   readln(r);
   writeln;
   obwod_kola:=2*wlasne_pi*r;
   pole_kola:=wlasne_pi*r*r;
   writeln('Obwod kola wynosi: ',obwod_kola:0:9,' cm*cm');
   writeln('Pole kola wynosi: ',pole_kola:0:9,' cm*cm');
   readln;
end.