Напишите программу. (в паскале) дан радиус (r) окружности. найти длину окружности (с) и площадь круга (s). с=2 пr. s=пr^2

Program b_3;
const Pi=3.1415926;
var R,S,C:real;
begin
write('введите радиус окружности');
readln(R);
C:=2*Pi*R;
S:=Pi*R*R;
writeln('длина окружности=',C:6:2);
writeln('площадь круга=',S:6:2);
End.