Составить программу на паскале.сформировать с датчика случайных чисел массива a[1..3,1..6], элементы которого находятся в промежутке от -20 до 20 .удалить n строку массива.

// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin   var k: =3;   writeln('*** исходный массив ***');   var a: =matrrandom(k,6,-20,20);   a.println(4); writeln(4*a.colcount*'-');   var n: =readinteger('какую строку удалить (1-'+k+')? ');   assert(n.between(1,k),'введено неверное значение');   var r: =a.row(k-1); // последняя строка   setlength(a,k-1,a.colcount); // теперь строк на одну меньше   if n< k then begin       for var i: =n-1 to k-3 do           a.setrow(i,a.row(i+1));       a.setrow(k-2,r)       end;   writeln(4*a.colcount*'-'); a.println(4) end. примеры *** исходный массив ***   -8    3 -10  -5  -8  11   14  -5 -19  -6 -19 -15     0 -11  11    3  -6 -12 какую строку удалить (1-3)? 1   14  -5 -19  -6 -19 -15     0 -11  11    3  -6 -12 *** исходный массив ***   11 -14  -3  18  19  -9   -11  19    8  20 -19  19   -20  13    3 -13  13    1 какую строку удалить (1-3)? 3   11 -14  -3  18  19  -9   -11  19    8  20 -19  19

Uses crt; var e,d,s,i,k: integer; begin k: =0; for i: =100 to 999 do begin e: =i mod 10; d: =(i div 10)mod 10; s: =i div 100; if (e=s) or ((e=d) and (e=s)) then inc(k); end; writeln(k); end.