Найти произведение всех элементов двумерного массива, больших заданного числа

Язык какой?

Паскаль

type massive=array[1 ... 10,1 ... 10] of integer;

var m:massive;

pr:real;

digit:integer;

i, k:byte;

flag:boolean;

begin

for i:=1 to 10 do

for k:=1 to 10 do

readln (m[i, k]) ; / / заполнение массива

writeln ('Введите границу: ') ;

readln (digit) ;

pr:=1;

flag:=false;

for i:=1 to 10 do

for k:=1 to 10 do

if m[i, k]>digit then

begin

pr:=pr*m[i, k]; / / все, что больше заданного перемножаем

flag:=true;

end;

if flag=false then writeln ('Чисел больше заданного нет.')

else writeln ('Общее произведение: ', pr:1:0) ;

END.