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