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.
