Напишите програму на языке с++// 19 -- вивести на екран 15 перших натуральних чисел, що більші за 70 і кратні знайти добуток тих з них, що закінчуються цифрою 5.рус версия : вывести на экран 15 первых натуральных чисел, большие 70 и кратные найти произведение тех из них, заканчиваются цифрой 5. 5.

34 6 * + 8 2 - * 2 3 4 5 * 6 + 7 + 8 4 2 * 3 4 9 + 3 4 + * 5 + + * + + * * * =  3 24 + 8 2 - * 2 3 4 5 * 6 + 7 + 8 4 2 * 3 4 9 + 3 4 + * 5 + + * + + * * * = 27 8 2 - * 2 3 4 5 * 6 + 7 + 8 4 2 * 3 4 9 + 3 4 + * 5 + + * + + * * * =27 6 * 2 3 4 5 * 6 + 7 + 8 4 2 * 3 4 9 + 3 4 + * 5 + + * + + * * * = 162 2 3 4 5 * 6 + 7 + 8 4 2 * 3 4 9 + 3 4 + * 5 + + * + + * * * = 162 2 3 20 6 + 7 + 8 4 2 * 3 4 9 + 3 4 + * 5 + + * + + * * * = 162 2 3 26 7 + 8 4 2 * 3 4 9 + 3 4 + * 5 + + * + + * * * = 162 2 3 33 8 4 2 * 3 4 9 + 3 4 + * 5 + + * + + * * * = 162 2 3 33 8 8 3 4 9 + 3 4 + * 5 + + * + + * * * = 162 2 3 33 8 8 3 13 3 4 + * 5 + + * + + * * * = 162 2 3 33 8 8 3 13 7 * 5 + + * + + * * * = 162 2 3 33 8 8 3 91 5 + + * + + * * * = 162 2 3 33 8 8 3 96 + * + + * * * = 162 2 3 33 8 8 99 * + + * * * = 162 2 3 33 8 8 99 * + + * * * = 162 2 3 33 8 792 + + * * * = 162 2 3 833 * * * = 162 2 2499 * * = 162 4998 * = 809676

Var     a: array[1..100,1..100] of integer;     i,j,n,z: integer; begin writeln('введите размерность матрицы a[n,n]: '); write('n = '); readln(n); writeln('как заполнить матрицу? '); writeln('1 - автоматически, 0 - с клавиатуры'); readln(z); if z=1 then     for i: = 1 to n do             begin             for j: = 1 to n do                     begin                     a[i,j]: =random(21)-10;                     write(a[i,j]: 3,' ');                     end;             writeln             end else     for i: = 1 to n do             for j: = 1 to n do                     read(a[i,j]); z: =1; for i: = 1 to n do       for j: = 1 to n do               if a[i,j]< > a[j,i] then z: =0; if z=1 then writeln('матрица семметрична относительно главной диагонали') else writeln('матрица не семметрична относительно главной диагонали') end.