Хелп ! попытайтесь заменить полную форму ветвления на два неполных ветвления: если слева стена то вправо иначе влево все всегда ли можно сделать такую замену

var a,b,c,x: real;

begin

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

readln(a);

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

readln(b);

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

readln(c);

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

readln(x);

if (a> b) and (a> c) then

begin

writeln('высший - ',a);

if (a> =x) then

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

else

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

end;

if (b> a) and (b> c) then

begin

writeln('высший - ',b);

if (b> =x) then

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

else

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

end;

if (c> a) and (c> b) then

begin

writeln('высший - ',c);

if (c> =x) then

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

else

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

end;

end.

в 1 программе   значение переменной а больше чем в цикле и   поэтому 10 не меньше 5 и цикл не выполняется

2 ошибка в том, что writeln выводит значение, а после   него еще есть условие про а

если бы а было меньше пяти,то программа зациклилась из за  a: =a+1 ,но если бы было меньше пяти и эта строчка была выше writeln (a),то цикл выполнился

 

во 2 программе 

s: =s+a/2 получится   не целое число,которое соответсвует типу real  

и   не хватает еще одного действия после   s: =s+a/2;     там должна участвовать переменная a,чтобы получилась полноценная программа