Скачиваний:
288
Добавлен:
04.03.2014
Размер:
1.2 Кб
Скачать
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.
Соседние файлы в папке Alex