Составить программу, запрашивающую радиус окружности и вычисляющую длину окружности и площадь круга
Сделать нужно в программе Free Pascal

varr,p,s:real;beginwrite('Введите радиус окружности: ');read(r);p:=2*pi*r;s:=pi*sqr(r);writeln('Длина окружности   L = ',p:0:3);writeln('Площадь круга   S = ',s:0:3);end.