исправить ошибки в паскале
program exp2;
const m=5; n=3;
type matr = array [ 1..m, 1..n ] of integer ;
var m: matr ; k, i, j : integer ; p: real ; повторно объявленный идентификатор
begin
clrscr ; неизвестный идентификатор
writeln ( ' k=' ) ; readln (k) ;
randomize ;
for i:= 1 to m do begin
for j:= 1 to n do begin
m [ i , j ] := random (101) ;
end ; end ;
for j:= 1 to n do begin
p:= 1;
for i:= 1 to m do begin
p:= p * m [i,j] ;
end ;
p := p ^ ( 1 / m ) ; нельзя делить
if p > k then writeln ( ' j = '; j: 5) ;неверное выражение
end ;
end.