var b:integer;
begin
write('Введите размер файла в байтах ');
readln(b);
writeln ('Количество полных килобайт ',b div 1024)
end.
Объяснение:
div - операция целочисленного деления
