Дана величина A, выражающая объем информации в байтах. Определить сколько полных Мбайт, Кбайт и байт содержит величина A- Pascal(Паскаль)

program zadacha1_3;
var
 n,mb,kb,b:word;

begin
 writeln('VVedite obiem informacii v baitah.');
 readln(n);
 mb:=n div (1024*1024);
 kb:=( n-(1024*1024*mb) ) div 1024;
 b:=n-(1024*1024*mb)-(1024*kb);
 writeln('Zdes : ',mb,' Mb ',kb,' Kb ',b,' bytes.');
 readln;
end.