Объяснение:
Var
r , C, S: real;
Const
PI=3,14;
Begin
Writeln('Введите радиус окружности');
Readln(r);
C:=2*PI*r;
S:=PI*r*r;
Writeln('Длина окружности = ' , C);
Writeln('Площадь круга = ' , S);
end.
