составить программу которая вводит 7 оценок с клавиатуры и выдает средний балл

programHelloWorld;

var n:double;

vari,c,summ: integer;

begin

    for i:=1 to 7 do

    begin

        writeln('Введите оценку:');

        readln(c);

        summ := summ + c;

    end;

     writeln('Введите оценку:');

    writeln(summ/c:15:2);

 end.