Сравнить остаток деления b на a с переменной а а: =5 b: =23 вывод: остаток > или < a работу выполнить в паскале

Const
a=5;
b=23;
var c,n:real;
begin
c:=b/a;
c:=trunc(c);
c:=c*a;
n:=b-c;
if c>a then writeln('остаток больше чем а')
else writeln('остаток меньше а');
end.
вместо a и b можно вводить любые числа(с отрицательными не тестил).