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.
Решение першого с объяснением
Вот решение), Вроде как правильно, по крайней мере приняли работу
Василий-4 курс
Борис-третий курс
Пётр-первый курс
Николай-второй курс
После последнего цикла for пишем
<span>for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then
s:=s+a[i];
end;</span>