Бейсик

Паскаль

Алгоритмический

FOR n=1 TO 7
FOR k=1 TO 7
B(n, k)=k–n
NEXT k
NEXT n

for n:=1 to 7 do
for k:=1 to 7 do
B[n, k]:=k–n;

нц для n от 1 до 7
нц для k от 1 до 7
B[n, k]=k–n
кц
кц