program Project4;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

var
   k, n: integer;
   IsCorrect: Boolean;
   a: array of integer;
   b: array of integer;
   c: array of integer;

begin
   IsCorrect := True;
   Writeln('Тема: Даны массивы a и b, состоящие из n элементов каждый. Получить массив c, где c[k] = a[k] + b[k]');
   repeat
      try
         Writeln('Введите длину "n" массива');
         Read(n);
      except
         Writeln('Введённое значение должно быть целым числом и не превышать размер типа данных!')
      end;
      if n < 1 then
      begin
         Writeln('Значение "n" должно быть больше 0!');
         IsCorrect := True;
      end;
   until (IsCorrect) and (n > 0) and (n < MAXINT);
   SetLength(a,n);
   SetLength(b,n);
   SetLength(c,n);
   Writeln('Введите значения a[k]');
   for k := 1 to n do
   begin
      Read(a[k]);
   end;
   Writeln('Введите значения b[k]');
   for k := 1 to n do
   begin
      Read(b[k]);
   end;
   for k := 1 to n do
   begin
      c[k] := a[k] + b[k];
      Write(c[k], '  ');
   end;
   Readln;
   Readln;
end.