Помогите пожалуйста, программа написана на Turbo Pascal нужно модифицировать програм?

Помогите пожалуйста, программа написана на Turbo Pascal нужно модифицировать програм??у таким образом, чтобы при решении задачи на компьютере обеспечивалась при необходимости проверка вводимых исходных данных на допустимость - соответствие области определения, а также определялось, какая из окружностей является внешней, какая внутренней Program z1; var d1,d2:integer; r1,r2:real; begin writeln('Введите диаметры'); readln(d1,d2); r1:=d1/2; r2:=d2/2; p:=pi*sqr(r1)-pi*sqr(r2); writeln('p=',p:8:3); end.