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

var  a, b: integer;begin  Write('Введите через пробел делимое и делитель: ');  Readln(a, b);  Writeln(a, '/', b, '=', a div b, ', остаток ', a mod b)end.Тестовое решение:Введите через пробел делимое и делитель: 1564 1371564/137=11, остаток 57