Cоставить алгоритм и начертить блок-сему решение задачи: Найти площадь круга и длину его окружности, зная радиус круга
var r,s,l:real; begin write('radius='); read(r); s:=pi*sqr(r); l:=2*pi*r; write('S=',s,';L=',l); end.