Выполните алгоритм, представленный в блок-схеме:​

вроде бы 100*100=10000 бит=1250 байта

р треугольника= сложить все стороны

ваня на п

саша на в

коля на с

петя на к 

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.