составить программу которая проверяет или равные 3 введенные числа и выводит на экране соответствующее сообщение (равные или неравные)

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