Помогите решить задачи по информатике.1

Program Task; const N=10; var T: array [1… N] of real; i,k: integer; beginfor i: =1 to N do readln (T[i]); k: =0; for i: =1 to N do if (T[i]>37,1) or (T[i]<36,1) then k: =k+1; write ('Количество дней, когда отклонение от нормальной температуры было больше 0,5°С равно', k); end.