Var st: string;begin write('строка: '); readln(st); repeat delete(st,1,1); writeln(st); until length(st)<2;end.
Первая тучка движется, и это движение изображают полосочки, расширение второй показывают стрелки, идущие от центра к краям, цвет третьей переходит от синего к фиолетовому
Иметь действующего персонажа.
Задать действие персонажу.