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

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