Программная обработка структурных данных

       Sum ,Sum0,SrCena :real;

       C_Imya : string[20];

       Begin

       Writeln (‘Vvdite kolichestvo zapicei’);

       Readln (N);

       Writeln (‘Vvdite document ‘);

       For I:=1 to N do

       Begin

       Writeln (‘Imya’);

       Readln (M[I].Imya);

       Writeln (‘gorod’);

       Readln (M [I].Gorod);

       Writeln (‘Otvetstvennij’);

       Readln ( [I].Otvetstv);

       Writeln (‘Kolichestvo’);

       Readln (M [I].Kolichestvo);

       Writeln (‘Cena bileta’);

       Readln (M [I].Cena);

       End;

            Writeln (‘Zdaite imya’);

       Readln (C_Imya);

       Sum :=0;

       KolVo :=0;

       SrCena :=0;

            For I :=1 to  N do

       Begin

       KolVo :=KolVo +M[I].Kolichestvo;

       SrCena := SrCena +M[I].Cena;

       If  M[I].Imya=C_Imya then

       Sum := Sum +M[I].Kolichestvo*M[I].Cena;

       End;

       Sum0 :=KolVo *SrCena;

       Writeln (‘summa ‘,Sum:8:2);

       Readln;

       End.