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

program tarakan;
type
s=record
sh:integer;
f:string;
end;
var m:array[1..30] of s;
w:integer;
t:string;
n,i,j:integer;
begin
writeln('ўўҐ¤ЁвҐ Є®«-ў® в а Є ­®ў:');
readln(n);
for i:=1 to n do
begin
writeln('ўўҐ¤ЁвҐ д ¬Ё«Ёо ',i,' в а Є ­ ');
readln(m[i].f);
writeln('ўўҐ¤ЁвҐ иЁаЁ­г ',i,' в а Є ­ ');
readln(m[i].sh);
end;
for i:=1 to n do
for j:=1 to n-i do
if m[j].sh<m[j+1].sh then
begin
w:=m[j].sh;
m[j].sh:=m[j+1].sh;
m[j+1].sh:=w;
t:=m[j].f;
m[j].f:=m[j+1].f;
m[j+1].f:=t;
end;
for i:=1 to n do
writeln(m[i].sh,' ',m[i].f);
readln;
end.