var a,b,c,d,s:real;
begin
writeln ('Введите проходной балл');
readln (s);
writeln ('Оценку за первый предмет');
readln (a);
writeln ('Оценку за второй предмет');
readln (b);
writeln ('Оценку за третий предмет');
readln (c);
writeln ('Оценку за четвертый предмет');
readln (d);
if (a+b+c+d)>=s then writeln ('Прошел') else
writeln ('Не прошел');
end.