Program qq;
uses crt;
var L,S,R:real;
BEGIN
clrscr;
writeln(Введите длину окружности);
read(L);
R = L / 2 * 3.14:
S:= 3.14 * R * R;
writeln(Результат ,S:4:4);
readln;
readln;
END
Попробуй так
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.