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