Нужен конспект по тебе "базы данных" не большой и понятный) заранее ❣ хорошего всем вечера​

Чтобы вставить музыку в презентацию, ЕСТЕСТВЕННО, её нужно сохранить на ваше устройство, а как иначе? Представьте ситуацию, вы хотите приготовить салат, но у вас нет одного ингредиента, вы же не можете взять его из «ниоткуда», его надо либо купить, либо в огороде взять,в общем, что угодно, но оно должно ПРИСУТСТВОВАТЬ у вас.
Тоже самое и с музыкой. Музыка должна быть сохранена на устройство, чтобы использоваться в презентации. И кстати, если эту презентацию переносить на накопительное устройство, то музыку обязательно захватывать тоже.

Var
m, n, p, d: real;

begin
writeln('Введите d');
read(d);
writeln('Введите m,n,p');
read(m, n, p);
if (m = d) or (n = d) or (p = d) then
begin
if (m = d) then writeln('m = d');
if (n = d) then writeln('n = d');
if (p = d) then writeln('p = d');
if (m = d) and (n = d) then writeln('m,n = d');
if (m = d) and (p = d) then writeln('m,p = d');
if (p = d) and (n = d) then writeln('p,n = d');
end else
begin
writeln('Ни одно не равно d');
if ((d - m) > (d - n)) and ((d - m) > (d - p)) then writeln('(d-m) - максимальное');
if ((d - n) > (d - m)) and ((d - n) > (d - p)) then writeln('(d-n) - максимальное');
if ((d - p) > (d - m)) and ((d - p) > (d - n)) then writeln('(d-p) - максимальное');
if ((d - m) = (d - n)) and ((d - m) = (d - p)) and ((d - n) = (d - p)) then writeln('(d-m)=(d-n)=(d-p)');
end;
end.