Помогите дописать программку , очень нужно. надобно в программе написать чтоб

Помогите дописать программку , очень необходимо.
надобно в программе написать чтоб любой человек смог отыскать средний балл за четверть . Ошибку from не знаю как решить . ( Сама программа , должна быть написана на среднее арифметическое число )
program Sokol_233;
var a, b, n:integer;
begin
readln(n);
for i from 1 to n do (Program1.pas(5) : Встречено 'from', а ожидалось ':')

c:=0;

readln(a,b,c);

c:=(a+b)/2;

writeln(c:10:2);

readln

end.