Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 1 до 5 и содержат годовые оценки

Program Bal;Uses CRT;const N=30;vara: array [1..N] of integer;i, x, y: integer;s: real;begins:=0; x:=0; y:=0; Writeln(\'Введите 30 оценок\');for i:=1 to N do read (a[i]); for i:=1 to N do begin if (a[i]>=4) then begin S:=S+a[i]; x:=x+1; end; end;S:=S/x;Writeln(\'средний балл S=\',S:4:2); Writeln(\' Press any key.\'); ReadKey();end.