4класс к параграфу 2, 3 , какие могут применяться носители информации для записи звука, а также для текста

Текст документ звук фонограмма

Var st: string [80];     i, dl, f: integer; begin   readln (st);   f : = 1;   i : = 1;   dl : = length(st);     while (i < = dl) and (f = 1) do       begin         if (st[i] = st[0-i+1+dl]) then f : = 1 else f : = 0;         inc(i);       end;     if (f = 0) then writeln('да') else writeln('нет'); end.немного изменил вариант из учебника под условие=)

Const n=10; var i, j: byte;     n1, n2: array [1..n] of integer; begin       j : = 1;       for i : = 1 to n do       begin           n1[i] : = random(100);           writeln('n1[', i, '] => ', n1[i]);       end;       writeln('');       for i : = 1 to n do       begin           if (n1[i] mod 2 = 0) then           begin               n2[j] : = n1[i];               inc(j);               n1[i] : = n1[i] * 2;           end;       end;       for i : = 1 to n do           writeln('n1[', i, '] => ', n1[i]);       for i : = 1 to j do           writeln('n2[', i, '] => ', n2[i]); end. если я правильно понял, то вот так =)