{* Задача 475 *}

Unit ZADACH475;
Interface
Implementation
Begin
 writeln('Дано два одномерных массива x и y одинаковой длины n. Описать процедуру, которая присваивает третьему массиву z разность векторов x и y. Применить прцедуру для двух разных пар массивов a и b, c и d. ');
End.

Program zadach475;

Uses zadach475.pas; {* Эту строку можно удалить *}
Const {* Предопределенные *}
  n = 3;
Type {* Типы переменных *}
  mass = Array [1..n] Of integer;
Var {* В работе нам потребуются переменные: *}
  a                : mass;
  b                : mass;
  c                : mass;
  d                : mass;
  t                : mass;
  f                : mass;
  i                : integer;
Procedure Razn(x : mass;
y                : mass;
Var {* Объявление переменных *}
  z : mass);
Var {* Объявление переменных *}
  i : integer;
Begin
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    z[i] := x[i] - y[i];
End;
Begin
  writeln ('Введите массив a');
  For i := 1 To 3 Do {* Увеличиваем i от 1 до 3 с шагом 1 *}
    readln (a[i]);
  writeln ('Введите массив b');
  For i := 1 To 3 Do {* Цикл для i => [1 .. 3] *}
    readln (b[i]);
  writeln ('Введите массив c');
  For i := 1 To 3 Do {* Переменная i увеличивается с 1 до 3 *}
    readln (c[i]);
  writeln ('Введите массив d');
  For i := 1 To 3 Do {* Переменная i увеличивается с 1 до 3 *}
    readln (d[i]);
  Razn(a, b, t);
  Razn(c, d, f);
  For i := 1 To 3 Do {* Увеличиваем i от 1 до 3 с шагом 1 *}
    write (t[i], ' ');
  writeln; {* Пустая строка *}
  For i := 1 To 3 Do {* Переменная i увеличивается с 1 до 3 *}
    write (f[i], ' ');
End.