Добавьте в программу из примера 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 < r_K then

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

else

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

end .

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=r_K then writeln('Координаты введены неверно')

else

if r_T < r_K then writeln('Танин дом ближе')

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

end .