№1. зачеркните "лишнее" слово присутствующее в каждой строке. дебри, прения, игры, шахматы. носок, мозоль, георгин, помидор. магистраль, вестибюль, бандероль, лазурь. озимь, цитадель, фланель, панцирь.

1)прения

2)носок

3)лазурь

4)панцирь

прения

носок

лазурь

панцирь

Var a, b, c, t: integer; begin       readln(a, b, c);       if (a > b) then       begin           t : = a;           a : = b;           b : = t;       end;       if (b > c) then       begin           t : = b;           b : = c;           c : = t;       end;       if (a > b) then       begin           t : = a;           a : = b;           b : = t;       end;       writeln(a, ' ', b, ' ', c); end.

Program wordscounter(output); var        str: string;         i, count: integer; begin        write('сторка: ');         readln(str);           i : = length(str);         if i > 0 then begin                count : = 1;                 while i > 0 do begin                        if str[i] = ' ' then                                count : = count + 1;                         i : = i - 1;                 end;         end        else                count : = 0;             writeln('число слов: ', count); readln; end.