Помоощь нужнаа! Прошуу Заполните случайными числами таблицу…

Держи: program kk; uses crt; var a: array [1… 5,1… 5] of integer; i,j: integer; beginclrscr; randomize; for i: =1 to 5 dobeginfor j: =1 to 5 doa[i,j]: =random (90)+10; end; for i: =1 to 5 dobeginfor j: =1 to 5 do write (a[i,j],'); writelnend; writeln; writeln; for i: =1 to 5 dobeginfor j: =1 to 5 dobegin if (a[i,j] > 0) and (a[i,j] mod 3=0) thenbeginwriteln (a[i,j],' [',i, ',',j,']'); end; end; end; readkey; end.