Синформатикой (программирование на языке pascalabc.net).нужно создать программу вычислите площадь кольца введите исходные данные радиус кольца -> 3.5 радиус отверстия (см)-> 7 ошибка! радиус отверстия не может быть-кольца s=pr^2

Var r1,r2:real;
begin
write('Радиус кольца -> ');
readln(r1);
write('Радиус отверстия (см)-> ');
readln(r2);
if r2>=r1 
 then writeln('Ошибка! Радиус отверстия не может быть >= радиуса кольца')
 else writeln('S = ',pi*(r1*r1-r2*r2):5:2);
end.

Пример:
Радиус кольца -> 7
Радиус отверстия (см)-> 3.5
S = 115.45