3. Составьте программу вычисляющую площадь круга (S) и длину окружности

var s, d, r:real;

p:string;

begin

p:='π';

//S=πr² d=2πr

write('Введите радиус окружности: ') ;

readln(r);

d:=2*r;

s:=r*r;

writeln('Длина окружности равняется: ', d, p);

write('Площадь окружности: ', s, p);

end.