Взависимости от номера (n) типа фигуры, организовать ввод необходимых данных и вычислить при к = 1 - площадь прямоугольника, при к = 2 - площадь параллелограмма, при к = 3 - площадь трапеции 1/2(a+b)h. в последнем случае напечатать: является ли трапеция параллелограммом или ромбом.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Write('Введите 1-прямоугольник, 2-параллелограмм, 3-трапеция:');
  var n:=ReadInteger;
  case n of
  1:begin
    Writeln('ПРЯМОУГОЛЬНИК');
    var (a,b):=ReadReal2('Введите длины сторон:');
    Writeln('Площадь равна ',a*b)
    end;
  2:begin
    Writeln('ПАРАЛЛЕЛОГРАММ');
    var (a,h):=ReadReal2('Введите длину основания и высоту:');
    Writeln('Площадь равна ',a*h)
    end;
  3:begin
    Writeln('ТРАПЕЦИЯ');
    var (a,b,h):=ReadReal3('Введите длины оснований и высоту:');
    Writeln('Площадь равна ',(a+b)/2*h);
    end;
  else Writeln('Введен неверный номер')
  end
end.

По поводу "является ли трапеция параллелограммом или ромбом". Это некорректный вопрос в информатике. Споры о том, является ли трапеция частным случаем параллелограмма или ромба так и не закончены. Поскольку копирование из Интернет материалов сюда запрещено, а также запрещены ссылки на внешние источники, отсылаю заинтересованных лиц к материалу, который называется "Параллелограммная война". Это о военном конфликте между Англией и Францией, возникший из-за разногласий на научной конференции в Геттингенском университете. Ну а нам войны не нужны, поэтому если автор вопроса четко сформулирует критерий, по которому можно ответить на заданный им подвопрос, можно будет добавить это в программу.

Это задание скорей к музыковедам, а не по информатике. При этом об одном и том же произведении мнения разных людей могут быть совершенно разными, некоторые и Лунную Сонату называют мутью и чушью.

Расшифруй термин "анализировать" и "музыка". Если анализ проводит компьютер, то для него музыка - это просто последовательный набор звуков, если многоголосие то многоканальный. Ну а воспринимать и в дальнейшеи анализировать он может только громкость и спектр. Так что определи базовые понятия, без этого задание не имеет никакого смысла.

 

Немного дополню ответ коллеги VladimirGoryachev.

а) В данной задаче не нужен массив. Нам сами числа не интересуют (нет цели специально выводить, например, 25-е число), а только их сумма. Поэтому будем просто сразу считать сумму.

б) Если был бы и нужен массив, то не вполне очевидно, почему он должен быть именно в 100 элементов. Задачей никак не запрещается иметь, например, 101 ненулевое число. В этом случае программа Владимира либо будет работать неправильно, либо выдаст ошибку.

в) Подключение библиотеки crt тут тоже не особо нужно. Не думаю, что возможность очистить экран (crt в данной программе используется только для этого) существенна.

г) Можно ограничиться одним циклом, а не двумя.

 

С учетом вышенаписанного, код можно переписать так:
program P1;

var temp, summ : integer;

begin

   writeln('Vvod massiva: ');
   summ:=0;
   repeat
     readln(temp);
     summ:=summ+temp;
   until temp = 0;
   writeln('Resultat: ',summ);
   readln
end.