Составьте программу для вычисления площади круга и длины окружности при известном радиусе. нв паскале

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.