Известны целая часть и остаток от деления неизвестного натурального числа на 37. Напишите программу, которая находит целую часть и остаток от деления неизвестного числа на 23.
Паскаль​

var a,b: integer;

begin

write ('Введите а = ');

readln (a);

write ('Введите b = ');

readln (b);

if b<> 0 then begin

  writeln('Целая часть = ', a div b);

  writeln('Остаток = ', a mod b);

end

else

  writeln('Ошибка! Деление на 0!');

end.