Если средний учащегося больше или равен 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.

Как я понял по условию, нужно посчитать стипендию у различных учеников...