Информационный объём дискеты равен 1, 44 Мбайта. Рассчитайте и выведите ** экран сколько...

Question

Информационный объём дискеты равен 1, 44 Мбайта. Рассчитайте и выведите на экран
сколько книг может поместиться на дискету, если для хранения кода одного символа
нужен 1 байт. Количество страниц в книге, число строк на странице и количество
символов в строке запрашивайте у пользователя.
помогите решить через паскаль

Answer 1

Program e;
var d : real; x,y,z : integer; all : integer;result: real;beginWriteln('ко-лво страниц');Readln(x);Writeln('ко-лво строк');Readln(y);Writeln('ко-лво символов');ReadLn(z);
d:= 1.44 * 1024;
all := x*y*z;
result := d/all;writeln('Поместится книг:',trunc(result));  end.