Из двух одномерных массивов a[1..n] и b[1..n] сформируйте новый одномерный массив c[1..n], значение элементов которого равно разности значений элементов исходного массива.

Program test;
const N = 10;
var i:integer;
a,b,c:array [1..N] of integer;
begin
for i:=1 to N do
begin
a[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(a[i]);
b[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(b[i]);
end;
for i:=1 to N do
beginif a[i]>b[i] then c[i]:=a[i]-b[i]
else c[i]:=b[i]-a[i];
write(c[i],' ');
end;
end.