Выучить

5 человек писали тест. ВЫдать собщение: 'ХОРОШО' , если набрано баллов больше 8 и меньше 9

var a: array [1..5] of integer ;

i:integer;

begin

for i:=1 to 5  do              begin

 a[i]:=random(10)+1;  writeln (a[i], ';');               end ;

For i:=1  to 5 do

 if  (a[i] >8) and (a[i] <9) then  writeln (a[i], 'хорошо');

end.

ПРОДУМАТЬ : как добавить условие, если надо ВЫдать собщение: 'МОЛОДЕЦ ' и ПЛОХО