Пишет на 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.
Вместо integer напиши real в var и будет тебе счастье