<span>Const k = 10;
Var a,b,c,m,n : Integer;
Begin
For m:=1 to k do
For n:=1 to k do
Begin
a:=sqr(m)-sqr(n);
b:=2*m*n;
c:=sqr(m)+sqr(n);
Writeln(m:5,n:5,a:8,b:8,c:8);
end;
end.</span>
1)Ввод с клавиатуры чисел a, b, l
2)расчёт по формуле:
Длинна шнурка = (7*a)+(2*l)+(6*b)
128=7 бит
7*145=1015 бит
1015/8=126 байт
Вроде так