Задача. Проверить, поместится ли на диске компьютера музыкальная композиция, которая длится m минут и n секунд, если свободное дисковое пространство 6 мегабайт, а для записи одной секунды звука необходимо 16 килобайт.

Решение. Для решения этой задачи необходимо знать, что 1 мегабайт=1024 килобайт, поэтому 6 мегабайт=6x1024=6144 килобайт. Обозначим t - время звучания композиции в секундах, v - объём файла композиции в килобайтах, тогда:

t=60*m+n, v=16*t.

Программа на Паскале будет иметь вид:

 

var m,n,t,v:integer;
begin
    writeln('Введите m и n');
    readln(m,n);
    t:=60*m+n;
    v:=16*t;
    if v<=6144 then writeln('Композиция поместится')
    else writeln('Не хватает ',v-6144,' килобайт');
end.

взято тут