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

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