Program s1;

var kb,by:integer;

begin

writeln('1 kb = 1000 bytes');

writeln('Введите количество байт');

readln(by);

kb:=by div 1000;

writeln(by,' bytes , будет = ',kb,' Kb');

end.