Cоставить алгоритм и начертить блок-сему решение задачи: Найти площадь круга и длину его...

Question

Cоставить алгоритм и начертить блок-сему решение задачи:

Найти площадь круга и длину его окружности, зная радиус круга

Answer 1

var r,s,l:real;
begin
write('radius='); read(r);
s:=pi*sqr(r);
l:=2*pi*r;
write('S=',s,';L=',l);
end.

---