Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) во вложении.
1,5 Мбайта = 1572864 байта
4096 бит = 4 кбит = 0,5 кбайт
Const n = 10;
var b: Integer;
var a: array[1..n] of integer;
begin
for var i := 1 to n do
begin
Read(a[i]);
b+=a[i];
end;
Writeln(b/n);
end.
Извини рисую я очень плохо думаю главное что б ты понял.