program Round;
var
C, R, S: Real; // C-длина окружности, R-радиус, S-площадь круга
begin
Write ('Введите длину окружности: '); // вывод на экран сообщения
ReadLn (C); // ввод длины окружности
if C < 0 then begin // проверка на отрицательное значение
WriteLn ('Введено отрицательное значение');
ReadLn; // ждать нажатия Enter
Exit; // выход из программы
end;
R := C / 2/ Pi; // расчет радиуса из длины окружности
S := Pi * R * R; // расчет площади круга
WriteLn ('Площадь круга = ', S); // вывод результата
ReadLn; // ждать нажатия Enter
end.
Объяснение: в комментариях к программе
Вы можете применять эффекты анимации пути перемещения, чтобы перемещать объекты на слайдах в той последовательности, которая лучше всего подходит для описания информации.
Например, плоскость справа (ниже) показывает начальную точку плоскости, а пунктирная линия между двумя плоскости показывает путь, который будет выполняться при воспроизведении анимации. Прозрачное изображение слева — это то, где плоскость будет заканчиваться при выполнении анимации пути перемещения.
Объяснение: