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

Question

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

---

Answer 1

Var A,B,C,M:integer;
Begin
Read(A,B,C);
if Aif Mif (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.