(turbo pascal) решите не фига не понимаю как с этой программой их решать 1. необходимо задать формулу (a+b)*(m-k) /b-k. переменные вводит пользователь. при знаменателе равном 0, выводится соответствующее сообщение (не ошибка pascal). кто разберается в этом надо

Var a,b,m,k:integer;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('m = ');
ReadLn(m);
Write('k = ');
ReadLn(k);
if b=k then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn((a+b)*(m-k)/(b-k));
End.