Выставляются оценки за контрольную работу, сколько информации содержится об оценке очередного ученика

Вчём ?                                          

// составьте программу нахождения в массиве а( 10) индексов элементов значения которых не кратны 4 var i,x: word;     a   : array [1..10] of integer; begin   writeln ('введите 10 целых чисел');   for i: =1 to 10 do     begin       write (i,' число ');       readln (a[i]);     end;   writeln;   for i: =1 to 10 do     begin       x: =a[i] mod 4;       if x< > 0 then writeln (i,' элемент таблицы не кратен 4');     end; end.

Var x,y: integer; begin   writeln('введите x');   readln(x);   writeln('введите y');   readln(y);   if (x> 0) and (y> 0) then writeln ('точка лежит в первой четверти');   if (x< 0) and (y> 0) then writeln ('точка лежит во второй четверти');   if (x> 0) and (y< 0) then writeln ('точка лежит в четвёртой четверти');   if (x< 0) and (y< 0) then writeln ('точка лежит в третьей четверти');     if (x=0) or (y=0) then writeln ('такой точки нет');   end.