//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var (x,y,z):=ReadInteger3('Введите координаты 1, 2 кошки и мыши соответсвенно->');
Println(abs(x-z)=abs(y-z)? 'Мышь убежала': abs(x-z)>abs(y-z)? 'Вторая быстрее':'Первая быстрее');
end.
Пример(1):
Введите координаты 1, 2 кошки и мыши соответсвенно-> 1 3 5
Вторая быстрее
Пример(2):
Введите координаты 1, 2 кошки и мыши соответсвенно-> 3 1 5
Первая быстрее
Пример(3):
Введите координаты 1, 2 кошки и мыши соответсвенно-> 1 5 3
Мышь убежала