Функция определения площади круга и площади кольца - PascalABC.NET - Ответ 9993554

program geometric;
 
const
  PI = 3.14;
 
function square(D: integer): double;//площадь круга
var
  rad: double;//радиус для площади круга
begin
  rad := (PI / 4) * (D * D);
  square := PI * (rad * rad)
end;
 
function squarering(rd1, rd2: double): double;//площадь кольца
begin
  squarering := PI * (Power(rd1, 2) - Power(rd2, 2));
end;
 
var
  rad: double;//радиус для площади круга
  D: integer;//Диаметр
  rd1, rd2: double;//радиусы для нахождения площади кольца
 
begin
  writeln('Введите диаметр');
  readln(D);
  writeln('Площадь круга равна:');
  writeln(square(D):4:2);
  writeln('Введите Внешний и внутренний и радиусы');
  readln(rd1, rd2);
  if (rd2 > rd1) then writeln('Ошибка!Внешний радиус должен быть больше внутреннего');//Проверка-Внешний радиус должен быть больше чем внутренний иначе ошибка
  writeln('Площадь кольца с 2-мя радиусами:');
  writeln(squarering(rd1, rd2));
end.