Решите карточку по информатике, надо, в паскале

var S,R1,R2: real;

begin

writeln('Введите радиус внешней окружности: ');

readln(R1);

writeln('Введите радиус внутренней окружности: ');

readln(R2);

S:=Pi*(sqr(R1)-sqr(R2));

writeln('S = ',S);

end.