program zadacha;vara,b,c:integer;beginread(a,b,c);if (a=b)and(b=c) then write('Равны')elsewrite('Не равны')end.