В зависимости от номера (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('Введен неверный номер')  endend.По поводу "является ли трапеция параллелограммом или ромбом". Это некорректный вопрос в информатике. Споры о том, является ли трапеция частным случаем параллелограмма или ромба так и не закончены. Поскольку копирование из Интернет материалов сюда запрещено, а также запрещены ссылки на внешние источники, отсылаю заинтересованных лиц к материалу, который называется "Параллелограммная война". Это о военном конфликте между Англией и Францией, возникший из-за разногласий на научной конференции в Геттингенском университете. Ну а нам войны не нужны, поэтому если автор вопроса четко сформулирует критерий, по которому можно ответить на заданный им подвопрос, можно будет добавить это в программу.