если средний бал учащегося больше или равен 4, то ему выплачивается стипендия с 50% надбавкой

да щас разбераться будем огромное спасибо

Если средний балл нужно вычислить в самой программе, а не ввести с клавиатуры, то программа немного отличаться будет. Там не очень сложно, вы справитесь.

program b;varbal:integer;stip:real;beginwrite('Введите средний балл учащегося: ');write('Введите стандартную стипендию: ');readln(bal,stip);if bal>=4 then stip:=stip+(stip/2) elsestip:=stip;writeln('Стипендия учащегося: ',stip);readln;end.Как я понял по условию, нужно посчитать стипендию у различных учеников...