Написать программу по если два целых числа а и b равны

Var a,b:integer;
Begin
  Write('Введите 2числа'); readln(a,b);
if a<b then writeln(a, ' меньше ', b);
if a>b then writeln(a, ' больше ' ,b);
if a=b then writeln('числа ',a,' и ', b, 'равны');
end.