Известно что в первом хранилище зерна осталось 100 тонн а в каждом последующем на 10 тонн больше предыдущего кроме последнего в котором на 20 тонн меньше чем в последнем. Всего хранилищ 5. ПОСТРОЙТЕ ДИАГРАММУ ОСТАТКА ЗЕРРНА

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов