Решить в pascal abc даны два целых числа. разделить каждое число на целое число d. найти произведение их остатков от деления.

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