Обчислити добуток квадратів перших 10 натуральних чисел​

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

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

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

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

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

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

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

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

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

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

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

Program pr;
uses crt;

var a,b:real;

Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);

if (a<0) and (b<0)   
    then     
       Begin       
            a:=a+2;
            b:=b+2; 
             writeln('a = ',a); 
             writeln('b = ',b); 
        end
else 
      if (a>0) and (b<0)     
        then       
           writeln('a*b = ',a*b)
      else 
           if (a<0) and (b>0)     
                then        
                   writeln('b-a = ', b-a)

           else  writeln('Ни одно условие не выполняется');

readln;
end.