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

Program n1;var a,b,c: integer;beginreadln(a,b,c);if (a=b) and (a=c) and (b=c) then write('равны') else write('не равны'); end.