Решить задачу в Pascal ABCДаны два целых числа. Разделить каждое число ** целое число...

Question

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

Answer 1

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