Скипит фолио
оцток іс -
КлтА​

Program WordsCounter(output);
var        str: string;       
i, count: integer;
begin       
write('Сторка: ');       
readln(str);        
i := length(str);       
if i > 0 then begin               
count := 1;               
while i > 0 do begin                       
if str[i] = ' ' then                               
count := count + 1;                       
i := i - 1;               
end;       
end       
else               
count := 0;         
writeln('Число слов: ', count);
readln;
end.

ответ

опустить перо

сместиться на вектор ( 0,4)

сместиться на вектор(2,0)

поднять перо

сместиться на вектор ( -2,-2)

опустить перо

сместиться на вектор ( 2,0)

сместиться на вектор ( 0,-2)

сместиться на вектор ( -2,0)

поднять перо

сместиться на вектор ( 3,0)

опустить перо

сместиться на вектор ( 0,2)

сместиться на вектор ( 2,2)

сместиться на вектор (0,4)

сместиться на вектор ( 0,1)

сместиться на вектор ( -2,0 )

поднять перо

сместиться на вектор ( 3,-1)

опустить перо

сместиться на вектор ( 0,4 )

сместиться на вектор ( 2,0)

сместиться на вектор ( 0,-4)

сместиться на вектор ( -2,0)

поднять перо

сместиться на вектор ( 3,0)

опустить перо

сместиться на вектор ( 0,4)

сместиться на вектор(2,0)

поднять перо

сместиться на вектор ( -2,-2)

опустить перо

сместиться на вектор ( 2,0)

сместиться на вектор ( 0,-2)

сместиться на вектор ( -2,0)

поднять перо

сместиться на вектор ( 0,4)

сместиться на вектор(2,0)

поднять перо

сместиться на вектор ( -2,-2)

опустить перо

сместиться на вектор ( 2,0)

сместиться на вектор ( 0,-2)

сместиться на вектор ( -2,0)

поднять перо

сместиться на вектор (3,0)

опустить перо

сместиться на вектор ( 0,2)

сместиться на вектор ( 2,2)

сместиться на вектор (0,4)

сместиться на вектор ( 0,1)

сместиться на вектор ( -2,0 )

поднять перо

сместиться на вектор(3,-1)

опустить перо

сместиться на вектор ( 0,4)

сместиться на вектор(2,0)

поднять перо

сместиться на вектор ( -2,-2)

опустить перо

сместиться на вектор ( 2,0)

сместиться на вектор ( 0,-2)

сместиться на вектор ( -2,0)

Объяснение:

вроде бы работает