Имеются данные о результатах олимпиады 3-х школьников по арифметике ( в

var a,b,c,x: real;

begin

writeln('Введите результат 1 ученика: ');

readln(a);

writeln('Введите результат 2 воспитанника: ');

readln(b);

writeln('Введите итог 3 воспитанника: ');

readln(c);

writeln('Введите проходной балл: ');

readln(x);

if (agt;b) and (agt;c) then

begin

writeln('Высший балл - ',a);

if (agt;=x) then

writeln('Прошёл в последующий тур')

else

writeln('Не прошёл в следующий тур');

end;

if (bgt;a) and (bgt;c) then

begin

writeln('Высший балл - ',b);

if (bgt;=x) then

writeln('Прошёл в следующий тур')

else

writeln('Не прошёл в следующий тур');

end;

if (cgt;a) and (cgt;b) then

begin

writeln('Высший балл - ',c);

if (cgt;=x) then

writeln('Прошёл в следующий тур')

else

writeln('Не прошёл в последующий тур');

end;

end.