program Noname0(inout,output);
var
    TestScore,ExamScore : integer;
    FinalScore : real;
    Status : string;
begin
    write('Enter test score: ');
    readln(TestScore);
    write('Enter exam score: ');
    readln(ExamScore);
    FinalScore:= TestScore * 0.3 + ExamScore * 0.7;
    if FinalScore >= 50
        then Status := 'Pass'
        else Status := 'Fail';
    writeln(Status);
    readln;
end.