Найдите ошибкуvar m, i: byte; sr: real; a: array [1..n] of integer; const n=10; sr =0; beginfor i: = 1 to n do read (a[i]); for i: = 1 to n do sr: = sr + a[i]; sr: = sr/n; for i: = 1 to n do if a[i] =3 then write ('none'); else if (sr = 5) then write ('named'); elseif (sr > = 4.5) thenwrite ('hign'); elsewrite ('common')end.
sr =0; должно быть после слова begin и должно быть : перед знаком равно: sr : = 0;