Добрый день, прошу помочь скоро сдача курсовой, а я никак не могу осилить блок схему к этой программе...
Помогите пожалуйста!
Program King;
Const Size=10;
Var A:Array[1..Size+1,0..Size] of Integer;
i,j,n,m:Byte;
Begin
Assign(Input, ‘Input.txt’);
Reset(Input);
Readln(n,m);
for i:=1 to n do
for j:=1 to m do
A[I,j]:=-1;
Repeat
Readln(I,j);
A[I,j]:=0;
Until EOF;
A[n,1]:=1;
For i:=n downto 1 do
For j:=1 to m do
If A[i,j]=-1
Then A[I,j]:=A[i+1,j]+A[I,j-1]+A[i+1,j-1];
Assign(Output, ‘Output.txt’);
Rewrite(Output);
Writeln(A[1,m]_;
Close(Input);
Close(Output);
End.