var
a: array [1..10] of real;
b: array [1..10] of real;
c: array [1..10] of real;
d: array [1..10] of real;
i, j: byte;
begin
writeln('Первый массив');
for i:=1 to 10 do
begin
write('Введите ', i , '-ое значение: ');
read (a[i]);
end;
writeln('Второй массив');
for i:=1 to 10 do
begin
write('Введите ', i , '-ое значение: ');
read (b[i]);
end;
writeln('Третий массив');
for i:=1 to 10 do
begin
write('Введите ', i , '-ое значение: ');
read (c[i]);
end;
writeln('Значения четвертого массива: ');
for i:=1 to 10 do
begin
d[i]:= a[i]*b[i]-c[i];
writeln(i, ' член: ', d[i]);
end;
end.