Люди, сижу на паре Информатика PascalABC.net

[padkoval]

Люди помогите решить задачу на Одномерный масив.
Имеются два масива по n чисел. Получить масив виз суммы квадратов элементов с одинаковыми номерами из данных масивов.
Нужен код который будет работать в PascalABC.net

[Stilet]

const n=10;
var c,a,b:array[1..n] of integer;
begin
 for i:=1 to n do  readln(a[i]);
 for i:=1 to n do begin  readln(a[i]);c[i]:=sqr(a[i])+sqr(b[i]); end;
 for i:=1 to n do  write(c[i]:10);
 readln;
end.

Подходит?

[padkoval]

Сообщение от Stilet

const n=10;
var c,a,b:array[1..n] of integer;
begin
 for i:=1 to n do  readln(a[i]);
 for i:=1 to n do begin  readln(a[i]);c[i]:=sqr(a[i])+sqr(b[i]); end;
 for i:=1 to n do  write(c[i]:10);
 readln;
end.

Подходит?

неподходит((