ошибка 201 в турбо паскале
Что не так и что исправить.

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. по поводу " является ли трапеция параллелограммом или ромбом". это некорректный вопрос в информатике. споры о том, является ли трапеция частным случаем параллелограмма или ромба так и не закончены. поскольку копирование из интернет материалов сюда запрещено, а также запрещены ссылки на внешние источники, отсылаю заинтересованных лиц к материалу, который называется "параллелограммная война". это о военном конфликте между и францией, возникший из-за разногласий на научной конференции в геттингенском университете. ну а нам войны не нужны, поэтому если автор вопроса четко сформулирует критерий, по которому можно ответить на заданный им подвопрос, можно будет добавить это в программу.