Собрать ветки.
взять спички .
разжечь костёр.
Надо удалить лишние пробелы, урезать/уменьшить фото, убрать красные строки (пустые строки), выбрать проще шрифт и уменьшить буквы, убрать визуализации/графику, цветные буквы
var
i, count: integer
i := 1;
count := 0;
repeat
String stroka;
readln(stroka);
if(length(stroka)<3)
count := count+1;
i:=i+1
Until(i=8);
Выводишь на экран
Цикл оформляй через for, я просто забыл синтаксис этого цикла.