PROGRAM p2(Input,Output);

{
  Mel Simmons
  Program 2
}

CONST
  MAXSCORE = 200;

VAR
  Test1,
  Test2,
  Final:Integer;

  Percent:Real;

BEGIN {P2}
  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;

  Write(Test1:10, Test2:10, Final:10, Percent:10:1);
  IF Percent >= 60
    THEN Writeln('Pass':10)
    ELSE Writeln('Fail':10);

  Readln;
END. {P2}