Решить задачу в Pascal ABC
Даны два целых числа. Разделить каждое число на целое число d.
Найти произведение их остатков от деления.

var
  a, b, d: integer;
begin
  readln(a, b, d);
  writeln((a mod d) * (b mod d));
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.