помогите с Turbo Pascal

Много че не так!!! !
после example ненадо стовить (input, output) просто ; ставь
fori:=1+ on do begin; это бред!!! !
надо так for i:=1 to n do
begin
тут тело цикла ставь
end;
после begin ; не стивится.
и вааще алг БРЕД.

program example;
var
a,s:real;
n: integer;
begin
writeln('введите количество чисел');
readln(n);
writeln('введите А')
readln(a);
S:=0.0;
for i:=1 to n do
S:=S+a;
end;
S:=S/n;
writeln(s);
readln;
end.
во как надо

по моему в строке
fori:=1+ on do begin;
вместо on надо что то другое

и вобще вроде надо так:
for i:=1 to n do

program example(input, output);
var a,s:real;
n: integer;
begin;
writeln ('введите количество чисел');
readln (n);
S:=0;
readln (a);
S:=S+a;
for i:=1to (ваше число или переменная) do
S:=S/n;
end.

добавил пробелы, изменил оператор for, стёр один бегин. помог бы больше но не до конца понял что требует задача)

На паскале 1000 лет не писал ниче. А так строчка
fori:=1+ on do begin; должна быть

for i:=1 to n do
begin
S:=S/n;
end.

А так вроде все правильно на беглый взгляд

Понял, у тебя end не хватало. В общем вот должно работать:

program example;
var
a,s:real; n: integer;
begin
writeln('введите количество чисел');
readln(n);
S:=0;
readln(a);
S:=S+a;
for i:=1 to n do
S:=S/n;
end.