Помогите с Информатикой (Программирование ** языке PascalABC.net).Нужно создать программу...

Question

Помогите с Информатикой (Программирование на языке PascalABC.net).Нужно создать программу ...
Вычислите площадь кольца
Введите исходные данные
Радиус кольца ->3.5
Радиус отверстия (см)->7
Ошибка! Радиус отверстия не может быть-Кольца
S=PR^2

Answer 1

// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
  Writeln('Вычислите площадь кольца');
  Writeln('Введите исходные данные');
  var r1:=ReadReal('Радиус кольца (см)->');
  var r2:=ReadReal('Радиус отверстия (см)->');
  if r2>=r1 then
    Writeln('Ошибка! Радиус отверстия не может превышать радиус кольца')
  else
    Writeln('Площадь кольца составляет ',pi*(r1*r1-r2*r2):0:4, ' кв.см')
end.