Написать программу которая выводит равенство и неравенство

Program c;
var a, b: integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a=b) then writeln('Числа равны!')
else
writeln('Числа не равны!');
end.