Напиши мне автора рт и класс я тебе скину офигенную решу
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.
<span>7 и 8 задания. в 7 не вижу значок на 1 схеме </span>