Program p166_8b;
uses p166_8a, crt;
var e,i,u:Fractie;

begin
 ClrScr;

Writeln;
 ClearF(e); i.nr:=1;
 Write('E1=');
 with i do for nm:=2 to 10 do begin
  SumF(e,i,e);  Write(FrStr(i,false));
  if nm<10 then write('+')else write('=');
 end; SimplF(e); Writeln(FrStr(e,false));

Writeln;
 ClearF(e);
 Write('E2=');
 with i do for nm:=1 to 10 do begin
  SumF(e,i,e); Write(FrStr(i,false)); nr:=-nr;
  if nm<10 then if nr>0 then write('+')else else write('=');
 end; SimplF(e); Writeln(FrStr(e,false));

Writeln;
 AttrF(e,1,1); i.nr:=1;
 Write('E3=');
 with i do for nm:=2 to 5 do begin
  ProdF(e,i,e); Write(FrStr(i,true));
  if nm<5 then write('*')else write('=');
 end; SimplF(e); Writeln(FrStr(e,false));

Writeln;
 AttrF(e,3,1); AttrF(u,1,1);
 Write('E4=');
 with i do for nm:=1 to 5 do begin
  CatF(u,e,e);SumF(u,e,e);
 end; SimplF(e); Writeln(FrStr(e,false));

 ReadKey
end.