Мне к завтрашнему дню надо составить программу в pascal мне решить первое возраст коли x лет возраст миши y лет найти их средний возраст а также определить разницу возраста мальчика от среднего значения исходные данные коле 12 лет миша 17 лет их средний возраст 14 с половиной коля отличается на
-2,5 миша отличается на 2,5 вторая не пользуюсь другими командными надо а равняется авторитет и а 10 за четыре операции

var  n:integer;

begin

read(n);

if (n=1) or (n=2) then writeln('1') else

        if n<=999 then

           if n mod 3 = 0 then writeln('2')

           else writeln('1')

           else if (n-1000) mod 3=0 then writeln('1')

           else writeln('2')

end.

var  n:integer;

begin

read(n);

if (n=1) or (n=2) then write('1') else                      

      if n<=999 then

           if n mod 3 = 0 then writeln('2')

           else writeln('1')

           else if (n-1000) mod 3=0 then write('1')

           else writeln('2')

end.

команды: Создать, сохранить изменить, открыть, сохранить как..., свойство, выход, копировать вставить файл, смешать с файлом, удалить.

создать - записать звук

сохранить - сохранить запись

изменить - редактировать аудио дорожку

открыть - открыть файл

сохранить как - где именно сохранять и в каком формате

свойство - свойство программы типа Информации о программе

выход - выход из программы

копировать вставить файл - скопировать дорожку вставить дорожку

смешать с файлом - смешать аудио с другой дорожкой

удалить - удалить аудио дорожку.