Дайте несколько возможных общих имён каждой группе а) буратино, мальвина, пьеро, артемон. б) "12 месяцев", "морозко", "золушка", "синяя борода". в) москва, санк-петербург, новосибирск. г) енисей, волга, лена, москва. д) москва, санк-петербург, тула.

А) персонажи сказок б) сказки в) самые большие города россии по численности населения г) реки д) города

Var  d, n: longint;       h: string;   begin      write('n? ');       readln(n);       repeat          d : = n mod 16;           if d < 10 then              h : = chr(ord('0') + d) + h          else              h : = chr(ord('a') - 10 + d) + h;           n : = n div 16;       until n = 0;       writeln(h, 'h');         end

Var a: array[1..100000] of longint; i,n,max,min: longint;     begin      assign(input,'input.txt'); reset(input);       assign(output,'output.txt'); rewrite(output);       readln(n); min: =maxint; max: =0;       for i: = 1 to n do begin        readln(a[i]);         if a[i] mod 2 = 0 then begin          if a[i] > max then max: =a[i];         if a[i] < min then min: =a[i];         end;       end;       writeln('min = ',min);       writeln('max = ',max);       close(input); close(output);     end.например  вводишь в файл input.txt512345он в файле output.txt вывидетmin = 2max = 4