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.