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

program ex4;
{‡ ¤ ­ ¬ ббЁў f[m] (m<=25), ᮤҐа¦ йЁ© ᢥ¤Ґ­Ёп ® дгвЎ®«Ёбв е:
 д ¬Ё«Ёо, Ј®¤ ஦¤Ґ­Ёп, Є®«ЁзҐбвў® § ЎЁвле Ј®«®ў,
  ¬Ї«г  ЁЈа®Є  (§ йЁв­ЁЄ, Ї®«г§ йЁв­ЁЄ, ­ Ї ¤ ойЁ©).
 ЋЇаҐ¤Ґ«Ёвм б ¬ле १г«мв вЁў­ле § йЁв­ЁЄ , Ї®«г§ йЁв­ЁЄ  Ё ­ Ї ¤ о饣®,
   в Є¦Ґ б ¬ле १г«мв вЁў­ле дгвЎ®«Ёбв®ў ў ЈагЇЇҐ бўлиҐ 30 «Ґв
 Ё ў ЈагЇЇҐ ¤® 20 «Ґв}
 type
  players=record
   name: string;  (* Ё¬п *)
   year: integer; (* Ј®¤ ஦¤Ґ­Ёп *)
   goal: integer; (* Є®«ЁзҐбвў® § ЎЁвле Ј®«®ў *)
   ampl: char     (*  ¬Ї«г : 'b','h','f' *)
  end;
 var f: array [1..25] of players;
 var s: players;
 var i,m,kb,kh,kf: integer;
begin
 write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ЁЈа®Є®ў m='); readln(m);
 writeln('‚ўҐ¤ЁвҐ ¤ ­­лҐ ¤«п Є ¦¤®Ј® Ё§ ',m,' ЁЈа®Є®ў (Ё¬п, Ј/а, Ј®«л,  ¬Ї«г ):');
 for i:=1 to m do
 begin
  with s do
  begin
   readln(name); readln(year); readln(goal); readln(ampl)
  end;
  f[i]:=s
 end;
 writeln('‘ЇЁб®Є ЁЈа®Є®ў');
 for i:=1 to m do
  writeln(f[i].name:20,' ',f[i].year:4,' ',f[i].goal:3,' ',f[i].ampl);
 kb:=1;
 for i:=2 to m do
  if f[i].ampl = 'b' then
   if f[i].goal > f[kb].goal then kb:=i;
 writeln('‘ ¬л© १г«мв вЁў­л© § йЁв­ЁЄ');
 writeln(f[kb].name:20,' ',f[kb].year:4,' ',f[kb].goal:3,' ',f[kb].ampl);
 kh:=1; kf:=1;
end.