В массив вводят размеры n файлов (в байтах) от 100 до 9000. Преобразовать все значения превышающие 1024 байта в килобайты

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.