prim_8.PAS

{* Площадь кольца *}

Unit PRIM_8;
Interface
Implementation
Begin
 writeln('Найти площадь кольца по заданным внешнему и внутреннему радиусам. ');
End.

Program prim_8;

Uses prim_8.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  r1 : real;
  r2 : real;
  s  : real;
Begin
  Write('введите радиус кольца r1 ');
  Readln(r1);
  Write('введите радиус кольца r2 ');
  Readln(r2);
  S := abs(3.14 * sqr(r1) - 3.14 * sqr(r2));
  Writeln('площадь кольца =', s : 5 : 2);
  Readln
End.