Составить программу, решающую следующую задачу: вычислить длину окружности L и площадь круга S одного и того же заданого радиусв R

спс)

Var r,L,S:real;beginread (r);L:=2*3.14*r;S:=4*3.14*r*r;write('длина...=',L);write('площадь...=',S);End.