Program Mx;
var А,В,С: integer;
begin
writeln(' Введите 3 числа:');
readln(A,B,C);
if (A = В) and (A = С) then
writeln('Числа равные')
else
writeln('Числа не равны');
readln
end.
Program Mx;
var А,В,С: integer;
begin
writeln(' Введите 3 числа:');
readln(A,B,C);
if (A = В) and (A = С) then
writeln('Числа равные')
else
writeln('Числа не равны');
readln
end.