Задан проходной в институт. ученик сдал три вступительных экзамена и на каждом получил определенный . будет ли ученик принят в институт?

  var a,b,c,d:integer;
begin
writeln('Вступительный ');
readln(a);
writeln('1 экзамен ');
readln(b);
writeln('2 экзамен ');
readln(c);
writeln('3 экзамен ');
readln(d);
if a<(b+c+d) then 
writeln('Ученик принят');
else
writeln('Ученик не принят');
end.