Паскаль абс найдите значение выражения (a div b+b)*mid c. переменные вводятся с клавиатуры

Program zna4enie;
var a, b, c,rez:integer;
begin
writeln('Введите первую цифру');
readln(a);
writeln('Введите вторую цифру');
readln(b);
writeln('Введите третью цифру');
readln(c);
rez:=(a div b+b)mod c;
writeln('(' ,a,' div ', b,'+ ',b,' )mod ',c);
write('ответ: ',rez);
end.