2. расширения разбить на группы и указать тип файла с данным расширением: avi, bmp, doc, docx, exe, flv, gif, htm, html, jpeg, jpg, mp3, pas, ppt, pptx, rar, txt, zip.

исполнительные: exe

текстовые: doc, docx, txt

изображения: bmp, gif, jpeg, jpg

интернет-страницы: htm, html

архив: rar, zip

презентация: ppt, pptx

музыкальные: mp3

видео: avi, flv

системы программирования: pas

avi-flv-mp3     эт мультимедиа

doc, docx,    ppt, pptx,  txt,   это текстовые

bmp.  gif.    jpeg, jpg это картинки

exe, htm, html,   это программы для компютера

1)    var     a ,i,min: integer; begin min : = 30000;   i : = 0;   while i < > 12 do   begin     readln(a);     if (a< min) and (a mod 2 = 0) then     min : = a;     i : = i +1;   end; writeln (min); end. 2)   var    a ,i,max: integer; begin max : = 0;     i : = 0;   while i < > 12 do  begin    readln(a);     if (a> max) and (a mod 10 = 2) then    max : = a;     i : = i +1;   end; writeln (max); end.

Pascalabc.net скорее всего криво и нерационально, но работает   var  s,s2,a : string;   l,i,b,l2 : integer;   begin  readln (s);     l : = length(s);   while b < > -1 do     begin  b : = 0;     b : = pos ('o',s);   if b < > 0 then     begin   s2 : = s2 + copy(s,1,b);   delete (s,1,b);     writeln ('введите строку');   readln (a);   s2 : = s2+a;     end     else       begin       l2 : = length(s);         s2 : = s2 + copy(s,1,l2);       b : = -1;       end;       end;     writeln (s2);           end.