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

Дан размер файла в байтах.

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

автор: Zakirov Nail a.k.a. ZevsNet