Дан массив натуральных чисел заданных случайным образом из диапазона от 0 до 20 и число х из этого же диапазона. длина массива равна n. вставить число х после первого элемента кратного пяти

Const nmax=20; var a: array [1..nmax+1] of byte; n, j, i: byte; x: integer; begin       repeat           write('количество элементов, не более ', nmax, ', n=');             readln(n);       until n in [1..nmax];       for i: =1 to n do a[i]: =random(21);       writeln('исходный массив');       for i: =1 to n do write(a[i]: 4);       writeln;       i : = 1;       while (a[i] mod 5< > 0) and (i< n) do inc(i);       if (i< n) or ((i=n) and (a[i] mod 5=0)) then       begin           write('x=');           readln(x);           for j: =n downto i+1 do  a[j+1]: =a[j];           a[i+1]: =x;           inc(n);       end         else             writeln('нет элемента с заданными свойствами');       writeln('преобразованный массив');       for i: =1 to n do write(a[i]: 4);       writeln;       readln; end.

Программу полностью написать?

jpg, mp3, avi и прочие рисунки , звуки, видео - не сжимаются.