Технический форум - Pascal помогите решить

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Pascal помогите решить (http://www.tehnari.ru/f43/t86829/)

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

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

Цитата:

Сообщение от BasKiLL (Сообщение 886918)

Код:

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.

Спасибо Vladimir