решить задачу на pascal

Даны k и массив X(k). Найти сумму (X1-P)2+(X2-P)2+...+(Xk-P)2, где Р=Х1+Х2+...+Хk)/k.
помогите решить задачу на pascal.

Примечание:
не выходят некоторые аспекты, если не трудно полностью напишите пожалуйста.

Примечание:
Сначала ищем Р
for i:=1 to k do
p:=P+x;
p:=p/k;

А потом сумму
for i:=1 to k do
s:=s+sqr(x-p);


циклы разработал, а дальше не знаю. Давно на паскале работал....

Примечание:
uses crt;
const k=10;
var
p,n,j,sum,i: integer;
x: array[1..k] of real;
begin
for i:=1 to k do
readln(i);
for n:=1 to k do P:=P+X[n];
P:=P/k;
for j:=1 to k do begin
sum:=sum+sqr(X[k]-P);
end;
end.



не могу разобраться с типами

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.