program к3_20; uses crt; var r:integer; l,s:real; BEGIN writeln('Введите значение радиуса окружности:'); readln(r); s:=2*sqr(r); l:=2*pi*r; writeln('Площадь круга =',s:7:2,' ','Длина окружности =',l:7:2); readln; END.