Добавьте в программку из образца 16.3 проверку правильности начальных данных:координаты домов

Добавьте в программу из образца 16.3 проверку корректности исходных данных:

координаты домов обязаны быть такими, чтоб расстояния до школы были различными.

Если расстояния одинаковы, то вывести известие Координаты введены ошибочно,

а если различные, то вывести ответ.( на языке паскаль )

Var x1, y1, x2, y2, r_T, r_K: real;

begin

writeln('Танин дом'); read(x1,y1);

writeln('Катин дом'); read(x2,y2);

r_T:= sqrt(x1*x1+y1*y1);

r_K := sqrt(x2*x2+y2*y2);

if r_T lt; r_K then

writeln('Танин дом ближе')

else

writeln('Катин дом поближе');

end .