Пользователь вводит объем информации в байтах. перевести это число в кб, мб, гб, тб (var x, a, b, c; real; )

Var a: integer;
begin
  readln(a);
  writeln(a,' в Кбайтах = ', a/1024);
  writeln(a,' в Mбайтах = ', a/1024/1024);
  writeln(a,' в Тбайтах = ', a/1024/1024/1024);
  writeln(a,' в Гбайтах = ', a/1024/1024/1024/1024);
end.

В килообиты X/1000
В мегабайты X/1000000
В гигабайты X/1000000000
В терабайты X/1000000000000