Если это текстовый документ ( проект, реферат или ещё что-то подобное)
1). Сохранить на рабочий стол
2). Документ, куда нужно поместить фото, свернуть наполовину рабочего стола
3). Переместить фото в эту полвину
4). Войти в документ и там настроить размер и расположение фото
Var A:byte;
Begin
For A:= 1 to 15 do
WriteLn(A,' * 2 = ',A*2);
End.
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.
Не проверял, но должно работать. Может возникнуть ошибка из-за русских символов, но тут уже сам.