Ogrencilerin dersten gecme-kalma durumu ve not ortalamalari

program gectiKaldi;
var
durum: array [1..10] of real;ortalama, toplam : real;gec, kal, i,k : integer;
begin
gec := 0;
kal := 0;toplam:= 0;
writeln ( '10 tane ogrenci icin not durumunu yaziniz');{readln ( durum[1], durum[2], durum[3], durum[4]....)}
for i := 1 to 10 do
beginreadln ( durum [i]);
end;
for k := 1 to 10 dobegin
if durum [k] < 50 then
kal := kal+1
else
gec := gec +1;
toplam := toplam + durum [k];
end;
writeln ('gecenler :' , gec:6, ' kalanlar: ', kal :6);
ortalama := toplam / 10;
writeln ('ortalama= ', ortalama :3:2);
readln;
end.