Найти площадь кольца,внутренний радиус которого равен r, а внешний - заданному числу R

Resing

Найти площадь кольца,внутренний радиус которого равен r ,а внешний-заданному числу R(R>rУважаемые программисты помогите решить! Спасибо за ранее!!
2 ответа

Resing

var
  r1,r2,s: real;
begin
  write('Введите внешний радиус: ');
  readln(r1);
  repeat
    write('Введите внутренний радиус: ');
    readln(r2);
  until r1>r2;
  writeln('Площадь кольца = ',pi*(r1*r1-r2*r2):0:3);
  readln;
end.


Resing

а как в среде AlgoRus