Помоооощь нужнааа!!прошуу Заполните случайными числами таблицу 5 х 5 и выведите на экран все положительные числа кратные трем и координаты этих числе

 Держи:

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.