Помогите с задачей pascal пожалуйста. одна осталась до зачёта!

Для n от 1 до 100
var
x: array [1..100] of real;
n, i: integer;
M, D, buff: real
begin
writeln ('Введите n');
readln (n);
for i:=1 to n do begin
writeln ('Введите x',i);
readln (x);
end;
M:=0;
buff:=0;
for i:=1 to n do M:=M+(x/n);
for i:=1 to n do buff:=buf+(sqr(x-M)/(n-1);
Writeln ('M = ', M);
Writeln ('D=', D);
end;

--Могут выскакивать ошибки при компиляции (pascal последний раз был в институте, сейчас я на Delphi), но если есть хоть какое-то представление о pascal`е, ошибки можно исправить, а так, в принципе, задача сводится к понимаю массивов и циклов.
P.S.: Для остальных - в задаче все описано, все значения вводятся с клавиатуры.. . Если значения нельзя вычислить, значит с клавиатуры...

откуда берутся Х, случайным образом или с клавы, ответь в адрес

Это паскаль?)))

это тервер видимо. Жаль работы много, помог бы

Program MatOgid;
uses crt;
var I,N: Integer;
M:Real;
X: array[1..100] of Real;
Begin
repeat
begin
clrscr;
writeln("Введите N>1:");
readln(n);
For i:=1 to n do
Begin
writeln ("Введите значение Х",i,":");
readln (x);
end;
M:=x[1]/n;
For i:=2 to n do
M:=M + x/n;
writeln ('Мат ожидание =',M);
writeln('Для выхода нажмите любую клавишу");
readkey;
writeln('Клавиша ESC - выход");
end
until readkey=#27;
end.

Второй пример - аналогично первому, а квадратный корень выражай через экспоненту натурального логарифма (exp Ln)