На строки : с клавиатуры вводятся 8 слов, подсчитать количество слов,в которых меньше 3-х символов ​

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, я просто забыл синтаксис этого цикла.