PROGRAM p1(Input,Output);

{
  Mel Simmons
  Program 1
}

CONST
  MAXSCORE = 200;

VAR
  Test1,
  Test2,
  Final:Integer;

  Percent:Real;

BEGIN {P1}
  Write('Enter Test 1 Score: ');
  Readln(Test1);
  Write('Enter Test 2 Score: ');
  Readln(Test2);
  Write('Enter Final Score: ');
  Readln(Final);

  Percent := (Test1 + Test2 + Final) * 100 / MAXSCORE;

  Writeln(Test1:10, Test2:10, Final:10, Percent:10:1);
END. {P1}