Используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта) — Pascal(Паскаль)

Program Integer3;

var
  bait, kbait: integer;

begin
  writeln('Введите количество бит');
  readln(bait);
  kbait := (bait div 1024) or (bait div 1000);
  writeln('B ', bait, 'Байт= ', kbait, 'Кбайт.');

end.