Вычеслить и вывести ** экран площадь круга и длину окружности зная радиус( задача в...

Question

Вычеслить и вывести на экран площадь круга и длину окружности зная радиус( задача в Паскаль)

Answer 1

program circle;

var S,P,r:real;

const i = Pi;

begin

 writeln('Введите радиус окружности');

 readln(r);

 S:=i*(r*r);

 P:=2*i*r;

 writeln('Площадь = ',S,', длина = ',P);

end.