Пользователь вводит объем информации в байтах. Перевести это число в Кб, Мб, Гб, Тб (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