Написать программу вычисления площади кольца. Программа должна проверять правильность исходных данных. Ниже представлен

var
rl,r2 : real; { радиус кольца и отверстия }
s : real;     { площадь кольца }
begin
writeln('Введите исходные данные:');
write('радиус кольца (см) -> ');
readln(rl);
write('радиус отверстия (см) —> ');
readln(r2);
if rl > r2 then
      begin
s:=PI*(sqr(rl)-sqr(r2));
writeln ('Площадь кольца ',s:6:2,' кв.см’);
end
         else writeln ('Ошибка! Радиус отверстия не может быть ',
'больше радиуса кольца.');
writeln ('Для завершения работы программы нажмите <Enter>');
readln;
end.