Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N7

Program V41_N7;
uses crt;
var
 P      :array[1..10]of string[26];
 F,PR   :array[1..10]of real;
 i,max  :integer;
 F1      :text;
 S      :real;
BEGIN
 assign(F1,'V41_N7.txt');
 reset(F1);
 S:=0;max:=1;
 clrscr;
 writeln('€б室­лҐ ¤ ­­лҐ');
 writeln('ЪДДДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї');
 writeln('і Ќ Ё¬Ґ­®ў ­ЁҐ ЇаҐ¤ЇаЁпвЁп і ”®­¤ §/Ї і Џа®жҐ­в ®взЁб«Ґ­Ё© ­  б®ж.бва е і');
 writeln('ГДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ');
 for i:=1 to 10 do begin
  readln(F1,P[i],F[i],PR[i]);
  writeln('і',P[i],'і',F[i]:10:1,'і',PR[i]:32:2,'%і');
  S:=S+(F[i]*PR[i])/100;
  if ((F[max]*PR[max])/100)<((F[i]*PR[i])/100)then max:=i;
 end;
 writeln('АДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ');
 S:=S/10;
 readln;
 clrscr;
 writeln('‘ЇЁб®Є ЇаҐ¤ЇаЁпвЁ©, г Є®в®але ўҐ«ЁзЁ­  д®­¤  ­  б®ж. бва е ўлиҐ б।­Ґ©');
 writeln('ЪДДДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї');
 writeln('і Ќ Ё¬Ґ­®ў ­ЁҐ ЇаҐ¤ЇаЁпвЁп і ”®­¤ §/Ї і Џа®жҐ­в ®взЁб«Ґ­Ё© ­  б®ж.бва е і');
 writeln('ГДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ');
 for i:=1 to 10 do
  if ((F[i]*PR[i])/100)>S then
   if i=max then writeln('і',P[i],'і',F[i]:10:1,'і',PR[i]:32:2,'%і - max')
            else writeln('і',P[i],'і',F[i]:10:1,'і',PR[i]:32:2,'%і');
 writeln('АДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ');
 writeln;
 writeln('S = ',S:0:2);
 readln;
 close(F1);
END.