Текст задания
Расчет величины Т товарного обеспечения оборота:
где n - количество наименований товаров;
Pi - количество товара поставленного за отчетный
период;
Ki , Hi - остатки товара на конец и начало отчетного периода соответственно.
Описание используемых переменных
1.
n
- количество наименований товаров, тип целый;
i – номер наименования товара, тип целый.
Pi - количество товара поставленного за отчетный
период. Тип целый
Ki , Hi - остатки товара на конец и начало отчетного периода соответственно. Тип целый
Блок-схема алгоритма

Исходный код программы с комментариями
Var n,i,p,p1,k,k1,h,h1: integer; // объявление переменных begin Write('n='); Readln(n); //Ввод n For i:=1 to n do begin Write('p[',i,']='); Readln(p1); //Ввод p[i] Write('k[',i,']='); Readln(k1); //Ввод k[i] Write('h[',i,']='); Readln(h1); //Ввод h[i] p:=p+p1; //Суммирование P k:=k+k1; //Суммирование K h:=h+h1; //Суммирование H end; Writeln('T=',p+k-h); // Вывод результата на экран end.