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.