БЛОК-СХЕМА К КОДУ

[ICE_LADY]

Привет.господа))) Продолжаю штудировать паскаль))) даже немного получается....только вот блок-схему составить не могу(((( Помогите, плиз...:и описание кода заумными словечками((( Вот код и само задание

Var
   I: Integer;
   S: String;
Begin
     ReadLn(S);
     I := 1;
     while I <= Length(S) do
     begin
          if S[I] = '*' then
               Delete(S, I, 1)
          Else
          Begin
               Insert(S[I], S, I + 1);
               I := I + 2;
     end;
     end;
     WriteLn(S);
     ReadLn;
end.

Даны натуральное число n и символы S1, …, Sn (строка). Преобразовать строку, удалив каждый символ ‘*’ и повторив каждый символ, отличный от символа ‘*’.

Чтобы все по волшебному нажатию кнопочки делалось???

[nervniy]

когда то делал блок схемы с помощью проги Avtoshema

[ICE_LADY]

О, ПАСИБА)))) СКАЧИВАЮ,БУДУ ПРОБОВАТЬ....СОГЛАСНА, ЧТО ЭТО ОЧ ПРОСТО-СОСТАВЛЯТЬ СХЕМЫ, НО...
1. ЛЕНЬ-ДВИГАТЕЛЬ ПРОГРЕССА (ХОТЯ МНЕ НЕ ЛЕНЬ) И ВООБЩЕ НЕ ДЛЯ СЕБЯ ДЕЛАЮ
2. У МЕНЯ КРОМЕ ЭТОГО ПРОГРАММИРОВАНИЯ ЗАДАНИЙ ЕЩЁ ВАГОН, ДА МАЛЕНЬКАЯ ТЕЛЕЖКА, ТАК ЧТО, ТОВАРИЩИ ХАККЕРЫ - ИЗВИНЯЙТЕ!)))

у МЕНЯ ПРОБЛЕМА В КРАСИВОМ ОПИСАНИИ ЭТИХ БЛОК-СХЕМ(((( я, как собака, всё понимаю, а сказать не могу по-умному....((
Если я схемку вставлю -поможете мне????

А препод понять может, что это я с помощью проги составила...как они обычно относятся к этому???

Блин, я её вставить теперь сюда не могу с программки(((( что делать??

[Alter]