hp:integer; - тобишь
ЦЕЛОЕ
slo:integer; - и это
ЦЕЛОЕ
lvl:integer; - и ещ одно
ЦЕЛОЕ
...
hp:= 5*slo*(1+lvl/10);
Разбираемся:
Целое * Целое =
ЦЕЛОЕ, значит умножение нам не помеха...
Целое + Целое =
ЦЕЛОЕ, значит сложение тоже...
И что же осталось?
lvl/10 .... на давай разделим 15 на 10 ...частное целое?
Вот тебе и
несовместимость типов 