Вычислить площадь круга S=pr^2)) вычислить периметр и площадь d a b

Периметр и и площадь круга если известен радиус var     r: real; begin     write('r = ');     readln(r);     writeln('P = ', 2 * pi * r);     writeln('S = ', pi * r * r); end.