Пожалуйста посчитайте с Паскалем. Файл в прикрепленных.

Var A,B,C,M:integer;
Begin
Read(A,B,C);
if A<B then M:=B;
if M<C then M:=C;
if (A<>B)or(B<>C)or(C<>A) then
   Begin
   if A=M then Write('A ');
   if B=M then Write('B ');
   if C=M then Write('C')
   End
else Write(0)
End.