var R1, R2: real;begin write('Введите данные - '); read(R1, R2); writeln('Pi = ', pi); {это чтоб знать с какой точностью брать П} writeln('S = ', pi * abs(R1 * R1 - R2 * R2));end.