N человек сдали экзамен. Вводя в цикле их оценки, определить количество повышенных оценок (4 и 5) Pascal

var n,m,k,i:integer; beginwrite('n = '); readln(n);k:=0;for i:=1 to n do  begin write(i,'-я оценка = '); readln(m); if m>=4 then k:=k+1; end;writeln('k = ',k);end.Пример:n = 51-я оценка = 32-я оценка = 43-я оценка = 54-я оценка = 25-я оценка = 4k = 3