Найти площадь кругового кольца с заданным внешним r1 и внутренним r2 радиусами — Pascal(Паскаль)

uses
  crt;
 
function plosh(n, n1: real): real;
begin
  plosh := pi * sqr(n) - pi * sqr(n1);
end;
 
var
  r, r1: real;
 
begin
  clrscr;
  writeln('введите внешний радиус');
  readln(r);
  writeln('введите внутренний радиус');
  readln(r1);
  writeln('площадь кольца', ' ', round(plosh(r, r1)));
  readln;
end.