Определить средний рост студентов в группе, если известно количество студентов и рост каждого студента. Данные ввести самостоятельно с клавиатуры — Pascal(Паскаль)

Program students;
uses crt;
var i,r:integer;
s,Pr:real;
begin
clrscr;
Pr:=0;
for i:=1 to 8 do
begin
Pr:=Pr;
writeln ('vvedite rost studenta',r);
readln (r);
Pr:=Pr+r;
end;
s:=Pr/8;
writeln ('sredniy rost=',s);
end.

Program students;
uses crt;
var i,r:integer;
s,Pr:real;
begin
clrscr;
Pr:=0;
for i:=1 to 8 do
begin
write ('vvedite rost studenta к=');
readln (r);
Pr:=Pr+r;
end;
s:=Pr/8;
writeln ('sredniy rost=',s:0:2);
end.

Program students;
uses crt;
var i,r,n:integer;
s,Pr:real;
begin
clrscr;
Pr:=0;
write ('vvedite kolichestvo studentov - ');
readln (n);
for i:=1 to n do
begin
write ('vvedite rost studenta - ');
readln (r);
Pr:=Pr+r;
end;
s:=Pr/n;
writeln ('sredniy rost=',s:0:2);
end.

Program students;
uses crt;
var i,r,n:integer;
    s,Pr:real;
begin
clrscr;
Pr:=0;n:=0;
repeat //начинаем ввод
n:=n+1; //считаем
write('Vvedite rost ',n,' studenta:');
readln (r);
Pr:=Pr+r;
until r=0;//если введем 0, ввод закончится
s:=Pr/(n-1);  //но 1 будет лишний, который 0
writeln ('N=',n-1,' Sredniy rost=',s:0:2);
readln
end.