(c, r) := divmod(a, b);writeln(a, ' : ', b, ' = ', c, ' * ', b, ' + ', r);
Пример
program DivisionWithRemainder;
var
a, b, c, r: integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
(c, r) := divmod(a, b);
writeln(a, ' : ', b, ' = ', c, ' * ', b, ' + ', r);
end.
Вывод При вводе чисел 27 и 4 программа выведет следующее:
27 : 4 = 6 * 4 + 3