(pascal) дан массив целых чисел из 8 элементов. найти сумму квадратов последних шести элементов

//Pascal ABC.NET v3.0 сборка 1111

Var
 ar:array[1..8] of integer;
 s:decimal; //Можно заменить на real
 i:integer;
begin
 for i:=1 to 8 do
  readln(ar[i]);
 for i:=3 to 8 do
  s:=s+sqr(ar[i]);
 writeln(s);
end.

Пример ввода:
1
2
...
8
Пример вывода:
199

Запишем этот алгоритм, и на место команды1 поставим команду сместиться на (a, b).
(здесь a, b -это нужные нам координаты смещения в команде1)

Повтори 2 раз
Сме­стить­ся на (a, b)
Сме­стить­ся на (3, 2)
Сме­стить­ся на (2, 1)
Конец
Сместиться на (−6, −4)

Выполнение этого алгоритма приведёт к следующим смещениям по оси икс: a + 3 + 2 + a + 3 + 2 - 6
Так как нам известно, что в результате этих смещений чертёжник вернулся в исходную точку, то это значит что сумма всех смещений равна нулю. Можем записать уравнение и найти a:
a + 3 + 2 + a + 3 + 2 - 6 = 0
2a + 4 = 0
2a = -4
a = -4 / 2 = -2  (нашли смещение по x в команде1)

Далее, делаем то же самое для смещения по y:
Выполнение этого алгоритма приведёт к следующим смещениям по оси игрек: b + 2 + 1 + b + 2 + 1 - 4
Составляем уравнение:
b + 2 + 1 + b + 2 + 1 - 4 = 0
2b + 2 = 0
2b = -2
b = -2 / 2 = -1 (нашли смещение по y в команде1)

Значит, вместо команды1 нужно поставить команду, указанную в варианте ответа 1) Сместиться на (-2, -1)

1)
a = float(input("Введіть ширину кімнати: "))
b = float(input("Введіть висоту кімнати: "))
c = float(input("ширину віна: "))
d = float(input("висоту вікна: "))
m = float(input("ширину дверей: "))
n = float(input("висоту дверей: "))
s = 4*(a * b )#площа 4 сторін кімнати
s_v = (c * d )#площа вікна
s_d = (m * n )#площа дверей
print('Площа всіх стін: ',s)
print("Площа вікна: ",s_v)
print("Площа дверей: ",s_d)
print("Площа для поклеювання обоїв :",s-(s_d+s_v),'m^2' )

2)
n = int(input("n = "))
while n>0:
a = n%10
n = n//10
print(a,end="")