Дано расстояние в метрах. найти число полных километров в нём.

var a: integer;

begin

writeln('введите кол-во метров: ');

read(a);

writeln('кол-во полных километров: ', a div 1000);

end.

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа

необходимо (но не достаточно).