Написать линейную программу в паскале для нахождения частного чисел а и в с остатком

Var
  a, b: integer;

begin
  Write('Введите через пробел делимое и делитель: ');
  Readln(a, b);
  Writeln(a, '/', b, '=', a div b, ', остаток ', a mod b)
end.

Тестовое решение:
Введите через пробел делимое и делитель: 1564 137
1564/137=11, остаток 57