A*b mod m если a,b,m <2*10^100
Вот так, если я правильно поняла задание var a, b, m: integer; begin readln(a, b, m); writeln((a * b) mod m); end.