Найти длину окружности L и площадь круга S заданного радиуса R: L = 2·π·R, S = π·Rв квадрате В качестве значения π использовать 3.14. В PascalABC
Var l,s,p,r:real; begin writeln('Введите радиус'); read(r); p:=3.14; l:=2*p*r; s:=p*sqr(r); write('Длина окружности равна ',l,' так же площадь круга равна ',s); end.