Две кошки загнали мышь в трубу. первая кошка находится в точке с координатой x, вторая кошка находится в точке с координатой y, мышь находится в координате z. определите, какая из кошек первой доберется до мыши, если кошки передвигаются с одной скоростью. в случае если кошки одновременно добираются до мышки, то тогда кошки ссорятся из-за добычи, и мышь ускользает от них. формат входных данных единственная строка входного файла содержит три целых числа x, y, z (1 < = x, y, z < = 1

Меня настораживают ограничения. Они что, все в одной точке? Тогда все ясно. Я взял ограничения -2^16<=x,y,z<=2^16. 
var x,y,z:real;
begin
read(x,y,z);
if abs(x-z)=abs(y-z) then writeln('Мышь ускользает');
if abs(x-z)>abs(y-z) then writeln('Мышь ловит вторая кошка с координатой ', y);
if abs(x-z)<abs(y-z) then writeln('Мышь ловит первая кошка с координатой ', x);
end.

Program Zadacha;
Const n = 10; m = 10; max = 15;
Var A: Array [1..n, 1..m] Of Integer;
B: Array[1..n] of Integer;
C: Array[1..n] of Real;
min, sum, count, i, j: Integer;
Begin
Randomize;
For i := 1 To n Do
For j := 1 To m Do
A[i, j] := Random(max * 2) - max;
min := max;
For i := 1 To n Do
For j := 1 To m Do
If A[i, j] < min Then
min := A[i, j];
For i := 1 To n Do
For j := 1 To m Do
If A[i, j] = min Then
B[i] := 1;
sum := 0;
count := 0;
For i := 1 To n Do
Begin
For j := 1 To m Do
If (A[i, j] Mod 2 = 0) And (A[i, j] >= 0) Then
Begin
sum := sum + A[i, j];
count := count + 1;
End;
C[i] := sum / count;
sum := 0;count := 0;
End;
WriteLn('Массив A:');
For i := 1 To n Do
Begin
For j := 1 To m Do
Write(A[i, j], ' ');
WriteLn;
End;
WriteLn('Массив B:');
For i := 1 To n DoWrite(B[i], ' ');
WriteLn;
WriteLn('Массив C (среднее арифметиеское положительных четных элементов массива A):');
For i := 1 To n Do
Write(C[i]:5:2, ' ');
ReadLn;
End.

С использованием составных условий:

Program Type1;
Var X1, Y1, X2, Y2: Integer;
BeginWriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 = -X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 = -X2) And (Y1 = Y2) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (X1 = X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.

Без использования составных условий:

Program Type2;
Var X1, Y1, X2, Y2: Integer;
Begin
WriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 + X2 = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 + X2 = 0) And (Abs(Y1) - Abs(Y2) = 0) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (Abs(X1) - Abs(X2) = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.