Нужна ! информатичка распечатала эту работу , тут все из егэ , какие могут быть . подскажите сайт откуда взяли работу

я точно не знаю но скорее всего это решу егэ

// pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin   var s: =readlnstring('введите двухзначное 16-ричное число');   var mh: array['a'..'f'] of integer: =(10,11,12,13,14,15);   if s.length=1 then s: ='0'+s;   var c: =s.tochararray;   var n: =0;   for var i: =0 to 1 do       case c[i] of       '0'..'9': n: =16*n+strtoint(c[i]);       'a'..'f': n: =16*n+mh[c[i]];       else begin           writeln('недопустимый символ: ',c[i]);           exit           end       end;   writeln('десятичный эквивалент: ',n) end. тестовое решение: введите двухзначное 16-ричное число 3a десятичный эквивалент: 58

//pascal abc.net v3.1 сборка 1172 const   n=3; var   ma: array[1..n,1..n] of real;   i,j: integer;   r: real; begin   randomize;   r: =1;   writeln('matrix: ');   for i: =1 to n do     begin;     writeln;     for j: =1 to n do       begin;       ma[i,j]: =random(1,10);       if j mod 2< > 0 then r: =r*ma[i,j];       write(ma[i,j]: 4);       end;     end;   writeln;   writeln('res=',r); end. пример работы  кода : matrix:     5   3   3     2   2   5   10   2   4 res=6000