Сколько битов содержится 1/512 мбайт?

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

на паскале:

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.