Помогите составить программу в Паскале

Какую? Любую?

Например: Вычислить средний балл учеников вашего класса по физике.

VAR i, ball, N, S : Integer;
BEGIN
WriteLn('Введите количество учеников'); ReadLn (N);
S:=0; for i:=1 to N do begin
WriteLn('Введите балл ученика');
ReadLn (ball);
S:=S+ball; end;
WriteLn('Средний балл =',S/N :8:3);
ReadLn ;
END.