Ответ Проверено экспертом Автор - maxsavelev2011 Var a:integer;BeginFor a:=1 to 100 doWrite('привет',' ') ;End.