uses wincrt;

const phi=22/7;
var r:integer;
       kell,luas:real;

begin
writeln('menghitung luas dan keliling lingaran');
writeln('masukan r--> ');readln(r);
luas:=phi*sqr(r);
kell:=2*phi*r;
writeln('luas segitiga adalah ',luas:4:2,' cm2');
writeln('keliling segitiga adalah ',kell:4:2,' cm');
end.