Pascal помогите решить

[BasKiLL]

Pascal помогите решить

Определить, будет ли начислена студенту стипендия по результатам экзаменов (стипендия начисляется, если все экзамены сданы на «хорошо» и «отлично»), если известны оценки по всем экзаменам.

 

[Vladimir_S]

Определить, будет ли начислена студенту стипендия по результатам экзаменов (стипендия начисляется, если все экзамены сданы на «хорошо» и «отлично»), если известны оценки по всем экзаменам.

Var
 NS,mark,i:Byte;
 b:Boolean;
Begin
 Write('Number of subjects: ');
 Readln(NS);
 b:=false;
 i:=0;
 Repeat
  Inc(i);
  Write('Next mark: ');
  Readln(mark);
  if mark<4 then b:=true;
 Until b or (i=NS);
 If b then write('No...') else write('Yes!!!');
 Readln
End.

 

[BasKiLL]

Спасибо Vladimir