Запишите кот программы с операторов интегрированной среды программирования для заданного алгоритма​

Const n=10; var a:   array [1..n] of integer;   - массив чисел var i,j,s: integer; begin   j: =0;   s: =0;     for i: =1 to n do a[i]: =random(100);   for i: = 1 to n do       begin           if ((a[i] mod 5 = 0) or (a[i] mod 10 = 0)) then         begin             s: =s+a[i]; j: =j+1;         end;     end;   writeln('число чисел, кратных 5 и 10   =   ',  j);   writeln('сумма чисел = ',s); end.  

Write(number mod 10,number div 10 mod 10, number div 100 mod 10); пример программы: program test; uses crt, classes; var number: integer; beginnumber: =123; write(number mod 10,number div 10 mod 10, number div 100 mod 10); delay(1000); //чтобы окно ещё на 1 секунду осталось, функция из модуля crtend.для pascal abc.net: program test; var number: integer; beginnumber: =123; write(number mod 10,number div 10 mod 10, number div 100 mod 10); sleep(1000); //чтобы окно ещё на 1 секунду осталосьend.вывод: 321