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

unit modul41;
interface
 type
  mas1 = array[1..12]of string[17];
  mas2 = array[1..12]of real;
  mas3 = string[17];
 Procedure Vvod(var S:mas1;var R:mas2);
 Procedure Vivod(S:mas1;R:mas2;N1,N2:mas3);
implementation
 Procedure Vvod;
  var
   i:byte;
   F:text;
  begin
   assign(F,'V41_N9.txt');
   reset(F);
   for i:=1 to 12 do
    readln(F,S[i],R[i]);
   close(F);
  end;
 Procedure Vivod;
  var
   i,k,l:byte;
   Sum:real;
  begin
   Sum:=0;k:=0;l:=0;
   for i:=1 to 12 do begin
    if S[i]=N1 then k:=1;
    if S[i]=N2 then if k=0 then l:=1
                           else k:=0;
    if k=1 then Sum:=Sum+R[i];
   end;
   if l=1 then begin
    i:=1;
    while S[i]<>N2 do begin
     Sum:=Sum+R[i];
     inc(i);
    end;
   end;
   writeln('ђ ббв®п­ЁҐ ¬Ґ¦¤г ',N1,' Ё ',N2,': ',Sum:0:2,'Є¬');
  end;
end.