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

Question

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

---

Answer 1

var S,R1,R2: real;

begin

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

readln(R1);

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

readln(R2);

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

writeln('S = ',S);

end.