Напишите программу на Паскаль ABC для нахождения длины окружности L и площади круга S заданного радиуса R по формулам: L = 2·π·R, S = π·R². В качестве значения π использовать 3.14.

Вот простой вариант для PascalABC.NET. Программа читает радиус R, считает длину окружности L и площадь круга S по указанным формулам с π = 3.14 и выводит результат. Добавлена проверка на отрицательный радиус.

pascal
Копировать код
program CircleLS;
const
  PI_CONST = 3.14;
var
  R, L, S: real;
begin
  write('Введите радиус R: ');
  readln(R);
  if R < 0 then
  begin
    writeln('Ошибка: радиус не может быть отрицательным.');
    halt;
  end;
  L := 2 * PI_CONST * R;
  S := PI_CONST * R * R;
  writeln('Длина окружности L = ', L:0:2);
  writeln('Площадь круга S = ', S:0:2);
end.

Если формат вывода с двумя знаками после запятой не нужен, можно убрать :0:2 и вывести полное значение.