program к3_20;
uses crt;
var r:integer;
      l,s:real;
BEGIN
writeln('Введите значение радиуса окружности:');
readln(r);
s:=2*sqr(r);
l:=2*pi*r;
writeln('Площадь круга =',s:7:2,' ','Длина окружности =',l:7:2);
readln;
END.