Написать программу которая проверяет равные ли 3 данных целых числа

Если программа на языке Pascal, то решение может быть таким:

var a,b,c:integer;
begin
  writeln('Введите a, b,c');
  readln (a,b,c);
  if (a=b)and(b=c) then writeln ('Равны')
    else writeln('Не равны');
end.