Составьте программу вычисления произведения элементов матрицы b(n, n), кратных 3. турбо паскаль

program joliewernaje; uses crt; const n=10; var  a: array[1..n,1..n] of integer;   i,j: integer;   tp: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   tp: =1;   randomize;   for i: =1 to n do      begin          for j: =1 to n do              begin                   a[i,j]: = random(20)+1; {заполняем массив}                  write(a[i,j]: 4);                   if a[i,j] mod 3 = 0 then tp: =tp*a[i,j];               end;           writeln();       end;   writeln();   writeln('произведение элементов, кратных 3, равно ',tp) end.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var (a,b,c): =readreal3('введите через пробел a,b,c: ');   var d: =b*b-4*a*c;   if d< 0 then writeln('нет действительных корней')   else       if d=0 then writeln('единственный корень ',-b/2/a)       else begin           d: =sqrt(d);           writeln('два корня: '-d)/2/a,' '+d)/2/a)           end end. пример введите через пробел a,b,c: 2.6 -3.1 0.15 два корня: 0.0505284246495728 1.14177926765812

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =readreal('введите число: ');   var k: =readinteger('введите величину сдвига десятичной точки: ');   a: =a*10**k;   a.println end. примеры введите число: 12345.09876 введите величину сдвига десятичной точки: -3 12.34509876 введите число: 345.09876 введите величину сдвига десятичной точки: 4 3450987.6 введите число: 12345.09876 введите величину сдвига десятичной точки: 8 1234509876000 введите число: 12345.09876 введите величину сдвига десятичной точки: 15 1.234509876e+19 введите число: 1.23456789e-10 введите величину сдвига десятичной точки: -25 1.23456789e-35