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