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

  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.

А чем помочь то? я не поняла задания)

Program pr;
Var a, b, c:array [1..20] of integer;
    i, c1, c2:integer;
begin
  for i:=1 to 20 do read(a[i]);
  for i:=1 to 20 do
    if i mod 2 = 0 then begin
      b[c1]:=a[i];
      Inc(c1);
    end
    else begin
      c[c2]:=a[i];
      Inc(c2);
    end;
  for i:=1 to 20 do write(b[i], );
  for i:=1 to 20 do write(c[i], );
end;