два массива чисел X=(x1,x2,...,xn) и У=(у1, у2,..., уn). Найти массив W, у которого каждый элемент wi равен хi-уi.
program pr;
uses crt;
const n=5;
var x,y,w:array[1..n] of integer;
i:integer;
begin
clrscr;
writeln('vvedite elementy massiva x');
for i:=1 to n do readln(x[i]);
writeln('vvedite elementy massiva y');
for i:=1 to n do readln(y[i]);
writeln('elementy massiva w');
for i:=1 to n do begin
w[i]:=x[i]-y[i];
write(w[i]:8);
end;
readln
end.