Составить программу вычесления выражения а+б/аб

Program a1;
uses crt;
var a,b,c:integer;
begin
writeln ('vvedite dva chisla');
readln (a,b);
c:=(a+b) mod a*b
writeln ('rezultat',c);
readln;
end.