Составьте программу которая осуществляет ввод массив с клавы размеров 6 файлов в бaйтах от 10 до 2000 и вычисляет: 1. суммарный размер файлов в килобайтах 2. средний размер файла

var a: array[1 ... 6] of integer;

i: integer;

sum, razm: real;

begin

writeln ('Вводим с клавиатуры размеры файлов');

for i : = 1 to 6 do begin

readln (razm);

if (razm > 10) and (razm < 2000) then a[i] : = razm else writeln ('Неправильный размер!');

end;

writeln ('Считаем суммарный размер в килобайтах');

for i : = 1 to 10 do razm : = razm + a[i];

razm : = sum / 1024;

writeln ('Считаем средний размер файлов');

for i : = 1 to 10 do sum : = sum + a[i];

sum : = sum / 10;

writeln ('Суммарный размер равен ', razm);

writeln ('Средний размер равен ', sum);

end.