1 2 3 ... 10
0 1 2 ... 9
0 0 1 ... 8
......
0 0 0 ... 1
Программа выдает другой результат.
Код
Var f:array[1..10,1..10] of Integer;
i,j,m:integer;
begin
for i:=1 to 10 do
begin
m:=1;
for j:=1 to 10 do
begin
if i<j then f[i,j]:=m;
if i=j then f[i,j]:=1;
if i>j then f[i,j]:=0;
write(f[i,j],' ');
end;
writeln;
end;
end.
Помогите, пожалста
Ни как не могу разобраться... 
Кто может, проверьте, работает ли программа Volvo и выдает ли она правильный ответ.
