01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / KNIGI

program knigi;{¤ ­ бЇЁб®Є Є­ЁЈ(­ §ў ­ЁҐ, ўв®а,Ј®¤ Ё§¤ ­Ёп).
               б®бв ўЁвм бЇЁб®Є Є­ЁЈ Ї® Ї бЄ «о Ё ®вб®авЁа®ў вм ҐЈ® Ї®
                ўв®а ¬(Ї®  «д.)}
         uses crt;
type q=record
       naz:string;
       a:string;
       god:integer;
     end;
knig=array[1..30] of q;
spis=array[1..30] of string;
var k:knig;
    s:spis;
    w:STRING;
    i,j,n,v:integer;


begin
    clrscr;

    writeln('‚ўҐ¤ЁвҐ Є®«-ў® Є­ЁЈ ў бЇЁбЄҐ:');
    readln(n);
    for i:=1 to n do
         begin
    writeln('‚ўҐ¤ЁвҐ ­ §ў ­ЁҐ ',i,' Є­ЁЈЁ');
    readln(k[i].naz);
     writeln('‚ўҐ¤ЁвҐ  ўв®а  ',i,' Є­ЁЈЁ');
    readln(k[i].a);
             end;
    for i:=1 to n do
    for j:=1 to n-i do
    if (k[j].a)>(k[j+1].a) then
    begin
    w:=k[j].a;
    k[j].a:=k[j+1].a;
    k[j+1].a:=w;
           end;
    writeln('Ї®  «д ўЁвг:');
    for i:=1 to n do
    writeln(k[i].a);
        for i:=1 to n do begin
    if pos('paskal',k[i].naz)<>0 then
    begin
    v:=0;
      writeln('Є­ЁЈ  Ї® Ї бЄ «о:',k[i].naz,' ,д ¬Ё«Ёп  ўв®а  - ',k[i].a,'');
    v:=v+1;
    end;
      end;
   if v=0 then writeln('Є­ЁЈ ® Ї бЄ «Ґ ў ¤ ­­®¬ бЇЁбЄҐ ­Ґв');
       readln;
END.