Составьте программу которая исполняет ввод массив с клавы размеров 6 файлов

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 gt; 10) and (razm lt; 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.