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.
Объяснение: в комментариях к программе
