Begin7. Найти длину окружности L и площадь круга S заданного радиуса R: L=2·pi·R, S=pi·R².
var r, l, s: real;
begin
  write('Введите радиус окружности ->');
  readln(r);
  l:=2*pi*r;
  s:=pi*sqr(r);
  writeln('Длина окружности = ', l:6:2);
  writeln('Площадь круга = ', s:6:2);
end.