(Паскаль)Дан радиус окружности. Найти площадь круга S=пR^2.

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