пишет на b:=b/4+2; ошибка нельзя преобразовать тип real к integer что сделать?

program n_1;
var a, b: integer;
begin ;
a:=123 ;
b:=a div 10;
b:=b/4+2;
b:=b*25+2;
a:=a+b;
write (a);
end.