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

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