Решить . дана последовательность от 1 до 30 слов. напечатать: все слова в алфавитном порядке.

//pascal abc.net v3.0 сборка 1111 const   n=30;   type   tys=array[1..n] of string; var   ars: tys;   i,j: integer;   s: string;   procedure sorts(var ars: tys; n1: integer); var   i,j: integer;   c: string; begin   for i: =1 to n1-1 do   for j: =i to n1 do     if ars[i]> ars[j] then     begin       c: =ars[i];       ars[i]: =ars[j];       ars[j]: =c;     end; end;     begin   readln(s);   j: =1;   while pos(' ',s)< > 0 do   begin     for i: =1 to pos(' ',s) do     ars[j]: =ars[j]+s[i];     delete(s,1,pos(' ',s));     inc(j);   end;   ars[j]: =s;   sorts(ars,j+1);   writeln('result=');   for i: =1 to n do  writeln(ars[i]); end. пример ввода: панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм паскаль тетрадь разум пример вывода: панамка  параллелепипед  паскаль  паста  пена  пенал  пинать  подражатель  полиморфизм    разумтетрадь  явный 

Аеще эту можно решить вот так, но почему-то в школе обычно так не учат: // pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin   readlnstring('-> ').towords.sorted.println end. тестовое решение: (данные взяты у предыдущего автора): -> панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм паскаль тетрадь разум панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм разум тетрадь явный

А) 235 страниц, содержащих текст и цветные иллюстрации, стоимость 75 рублей. б) ( точно не  знаю, но по  моему)-стоимость 75.