Написать программу которая проверяет равные ли 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.