СОСТАВИТЬ БЛОК СХЕМУ ОЧЕНЬ ДАЮ 35б!!
Program musica;
var m, n:integer;
begin

write ('Введите количество минут и секунд через пробел: ') ;

readln (m, n) ;

if (18 * (m * 90 + n) < = 9 * 1024) then writeln ('Песня поместится')

else writeln ('Песня не поместится') ;

end.

Размер цифрового моноаудиофайла измеряется по формуле:
     A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение или глубина кодирования звука).
22,05 кГц = 22,05*1000 Гц = 22050 Гц
8 бит = 1 байт
Размер файла = 22050*19*1 байт = 418950 байт

Program pr;
var a:array [1..n] of integer;
n, i, c: integer;
begin
c := 1
n := random(50);
for i := 1 to n do
begin
readln(a[i]);
c := c * a[i];
end;
writeln(c);
end.

Которые предназначены не для одной платформа (к примеру, не только на ПК)