Question

Помогите с информатикой (смотрите фото)

Answer 1

Вынести Writeln('Найдены элемент, по модулю не превышающие 5: '); за цикл for.
Поставить между k := 0; и for i := 1 to 15 do

Answer 2

сотри две последние строчки, а потом после слова end сотри точку с запятой и вместо её поставь точку и всё.