Type
 Things=Record
         Name:String[10];
         Amount:Word;
         Price:Word;
        End;

Var
 N,i,Item,Imin,Imax:Byte;
 Sum:LongInt;
 Min,Max:Word;
 f:Text;
 Goods:Array[1..100] of Things;

Begin
 Assign(f,'C:\Store.txt');
 Reset(f);
 N:=0;
 Repeat
  Inc(N);
  with Goods[N] do
   begin
    read(f,Name);
    read(f,Amount);
    readln(f,Price);
   end;
 Until EoF(f);
 Close(f);
 Repeat
  Writeln;
  Writeln('Show:');
  Writeln('   1 - full list of goods');
  Writeln('   2 - lowest anf highest price goods');
  Writeln('   3 - full price of all goods');
  Writeln('   4 - Exit');
  Readln(Item);
  Case Item of
   1: for i:=1 to N do writeln(Goods[i].Name);
   2: begin
       Min:=Goods[1].Price;
       Imin:=1;
       Max:=Goods[1].Price;
       Imax:=1;
       for i:=2 to N do
        begin
         if Goods[i].Price<Min then
          begin
           Min:=Goods[i].Price;
           Imin:=i;
          end;
         if Goods[i].Price>Max then
          begin
           Max:=Goods[i].Price;
           Imax:=i;
          end;
        end;
       Writeln('Minimal: ',Goods[Imin].Name,' (',Goods[Imin].Price,')');
       Writeln('Maximal: ',Goods[Imax].Name,' (',Goods[Imax].Price,')');
      end;
   3: begin
       Sum:=0;
       for i:=1 to N do Inc(Sum,Goods[i].Price*Goods[i].Amount);
       Writeln('Full price of all goods: ',Sum);
      end;
   else Item:=4;
  end;
 Until Item=4;
End.

Uses CRT,Graph;

Const
 RC=45;

Var
 R,XA,XB,YA,YB,FClr,BClr,i,Xc,Yc:Word;
 Angle:Real;

Procedure Triang(Color:Word);
begin
 SetColor(Color);
 XA:=Xc+Round(R*Cos(Pi/4+Angle));
 YA:=Yc-Round(R*Sin(Pi/4+Angle));
 XB:=Xc+Round(R*Cos(-Pi/4+Angle));
 YB:=Yc-Round(R*Sin(-Pi/4+Angle));
 Line(Xc,Yc,XA,YA);
 Line(Xc,Yc,XB,YB);
 Line(XA,YA,XB,YB);
end;

Begin
 InitGraph(..., ..., ...); {Тут - самостоятельно!}
 SetLineStyle(SolidLn,0,ThickWidth);
 R:=Round(RC*Sqrt(2));
 Xc:=GetMaxX div 2;
 Yc:=GetMaxY div 2;
 FClr:=GetColor;
 BClr:=GetBkColor;
 for i:=0 to 24 do
  begin
   Angle:=Pi/12*i;
   Triang(FClr);
   if i<24 then
    begin
     Delay(1000);
     Triang(BClr);
    end;
  end;
 SetColor(FClr);
 SetTextJustify(CenterText,BottomText);
 OutTextXY(Xc,2*Yc-10,'Press any key to quit...');
 Readkey;
 CloseGraph;
End.