Найти среднее значение целых десятичных чисел кол-во задается с клавиатуры

Писать на языке паскаль

Var i, n, m, sum:integer; r:real;

Begin

Randomize;

write ('Введите количество целых десятичных чисел');

Readln (n);

for i:=1 to n do begin

m:=random (100) - 50;

write (m:4); sum: = sum + m; end;

writeln;

r: = sum/n; write ('среднее значение ', n,' целых десятичных чисел ', r:8:4); end.

Var col, col1, sum, zn: integer;

srar: real;

Begin

readln (col);

col1:=col;

sum:=0;

while col1 > 0 do

begin

readln (zn);

sum:=sum+zn;

col1:=col1-1;

end;

srar:=sum/col;

writeln (srar);

End.