Паскаль абц, через массив, с комментариями действий

BeginVar a:array of integer;Var good:=0;Var b:integer;Var bad:=0;Var middle:=0;For var i:= 1 to 10 doBeginReadln(b);a[i]:=b;End;For var i:=1 to 10 doBeginIf a[i] > 3 then inc(good)Else if a[i] < 4 then inc(bad);Middle+=a[i];End;Println(middle/10);End.Вроде так, если компиляция не произойдёт, напиши