Не могу разобраться...в проблеме...

[barakk]

если не правильно...пожалуйста...измените и решите задачу!
program nomer19;
uses crt;
var
Max,Kol,f,n,m:real;
k,l,i,j:integer;
begin
writeln('Введи матрицу');
for i:=1 to N do begin

for l:=1 to N-1 do begin
for i:=1 to N-l do begin
begin
Kol:=max;
j:=i+l;
for k:=i to j-1 do begin
if Kol > F[i,k]+F[k+1,j]+n[i]*n[k+1]*m[j]
then Kol:=F[i,k]+F[k+1,j]+n[i]*n[k+1]*m[j];
end;
F[i,j]:=Kol;
end.