Такого правила нет в информатике
Program n1;
var s: string;
begin
s:='stroka';
if length(s)<10 then s:=s+'КЛМНОПРСТ';
write(s);
end.
1 раз выполнится. Он проверяет 5<8? Да! Тогда 5+4=9. Далее 5<9? Нет! Выходим из цикла
Собрать ветки.
взять спички .
разжечь костёр.