Program Squares;

{Leonidas Georgiou, 17/12/06,  1CS }



Var

 Infile, Outfile:text;
   A:char;
     B,C,D,E:Integer;



 {Function 1 for Calculating the Sum of the Cubes /  C }


Function Cubesum(B,C,D,E:integer):Integer;

Begin

    Cubesum:=B*C*D*3+E*E*E;

End;


{Function 2 for calculating the sum of the Sqares /  S }

function Sqrsum(B,C,D,E:integer):Integer;

begin

    Sqrsum:=B*C*3+E*E;

End;

{Function 3 for calculating the Average Sum /  A }

function Avsqrsum(B,C,D,E:integer):Real;

Begin

    Avsqrsum:=(B+C+D+E)/4;

End;

{ Main program }

Begin
  Assign (Infile,'c:\skt.txt');
    Assign (Outfile,'c:\mlkia.txt');
      Reset(Infile);
        Rewrite(Outfile);



while (not eof(infile))do

    Readln(infile,A,B,C,D,E);

if A='C'then

    Writeln(outfile,cubesum(B,C,D,E),' Sum of the cubes');

if A='S' then

      Writeln(outfile,sqrsum(B,C,D,E),' Sum of Square');

if A='A' then

        Writeln(outfile,avsqrsum(B,C,D,E),' Avarage of the squares');
end;

Close(outfile);
Close(infile);
end.