Дано 3 массива a, b, c, состоящие из 10 элементов. присвоить массиву d среднее арифметическое каждого элемента этих 3 массивов. массивы a, b, c вводятся вручную. так же желательно когда допустим я ввел не верные данные то я должен ввести их заново не перезапуская программу. это вроде через repeat и until делается.

Procedure tform1.button1click(sender: tobject); var   i,j,k: integer;   chislo : integer; begin   memo1.clear;   for i : = 0 to 31 do   begin     chislo : = 3;     for j : = 0 to 4 do     begin       if ((i and trunc(intpower(2,=0) then         dec(chislo)       else         chislo : = 3*chislo;       if (chislo=16) then       begin         memo1.lines.append('ура - нашли');         for k : = 0 to j do           if ((i and trunc(intpower(2,=0) then             memo1.lines.append('1')           else             memo1.lines.append('2');         memo1.lines.append('');       end;     end;   end; end;

Var   i,n: byte; begin   write('введите натуральное число от 1 до 10: ');   read(n);   if not (n in [1..10]) then writeln('недопустимое значение')   else       write('в римской записи: ');       case n of       4: writeln('iv');       5: writeln('v');       6: writeln('vi');       7: writeln('vii');       8: writeln('viii');       9: writeln('ix');       10: writeln('x');       else           begin for i: =1 to n do write('i'); writeln end       end; end. тестовое решение: введите натуральное число от 1 до 10: 3 в римской записи: iii