Жесткий диск имеет объем свободного пространства х гбайт- запрашиваемая величина. сколько книг, каждая из которых состоит из 350 страниц, на каждой странице по 35 строк, в каждой строке по 55 символов, можно записать на жесткий диск, если для хранения кода одного символа отводится 2 байта? нужна решить нужно через паскаль

Program programName;
var x,y: real;
begin
writeln('Введите объем свободного пространства на жестком диске(Gb)');
readln(x);
y:=x/((350*35*55*2)/1073741824);
writeln('В свободное пространство размером ' x 'Gb вместится ' y:0:0 ' книг');
end.

Не проверял, но должно работать. Может возникнуть ошибка из-за русских символов, но тут уже сам.