В массив вводят размеры n файлов (в байтах) от 100 до 9000. ...

Нюра

var a:array[1..250] of string; size:real; i,n:integer; text:string;begin   writeln('daite N'); readln(n);   for i:=1 to n do     begin        readln(size);        if (size>1024) or (size=1024) then            begin               size:=size/1024;               str(size:0:2,text);               a[i]:=text+' kb';               text:=''; size:=0;            end else         begin              str(size,text); a[i]:=text+' bytes'; text:=''; size:=0;         end;      end;  for i:=1 to n do write(a[i],' '); readln;end.