В массив вводят размеры 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.