Информатика решить пару задачек класс

1. со временем и так будут учить // pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var k: =readinteger('введите 1< k< =n: ');   if (k> n) or (k< 1) then exit;   var a: =matrrandomreal(n,n,1,20); a.println(7,2);   k-=1;   var d: =a[k,k];   writeln(n*7*'-');   for var j: =0 to n-1 do a[k,j]/=d; a.println(7,2) end. пример n= 5 введите 1< k< =n: 2   15.11    1.07    2.01    6.33    8.63   13.26  14.96  13.36    9.87  17.39   14.87  19.89  16.94  10.77  17.86   18.16  19.99  10.16    9.89    5.42     4.78  13.60    6.89  19.56    1.25   15.11    1.07    2.01    6.33    8.63     0.89    1.00    0.89    0.66    1.16   14.87  19.89  16.94  10.77  17.86   18.16  19.99  10.16    9.89    5.42     4.78  13.60    6.89  19.56    1.25 2. а пока в школах учат писать вот так. хорошо видно, насколько школа отстает от современных технологий. const   nn=20; var   a: array[1..nn,1..nn] of real;   i,j,n,k: integer;   d: real; begin   write('n= '); read(n);   write('введите 1< k< =n: ');   read(k);   if (k> n) or (k< 1) then exit;   randomize;   for i: =1 to n do begin       for j: =1 to n do begin           a[i,j]: =19*random+1;           write(a[i,j]: 7: 2)           end;       writeln       end;   d: =a[k,k];   for i: =1 to 7*n do write('-');   writeln;   for j: =1 to n do a[k,j]: =a[k,j]/d;   for i: =1 to n do begin       for j: =1 to n do write(a[i,j]: 7: 2);       writeln       end end.