program dayzd arrayz ;
{This program is supposed to get 10 scores and
show all of the scores that are below the average}
typo
    scores = array(1..10) of score

var
   score:integer;
   ave:real;
   total:integer;
   count:integer;
begin
     for count := 1 to 10 do
         writeln('Please enter a score');
         readln(scores)
         total := score;
     ave:= score/10;
     for count:= 1 to 10
         if score > count then
            writeln(count)
end.