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.