Инф-ка 9 класспри активации, программа выделяет строчку с кейс и пишет "ожидался порядковый или строковой тип"program bingo; var l: real; a: integer; beginwriteln('введите 1-децим,2-килом,3-метр,4-сантим,5-миллим'); read(a); writeln('введите длину отрезка'); read(l); case l of1: writeln(l/10,'=
длина отрезка в м'); 2: writeln(l*100,'= длина отрезка в м'); 3: writeln(l,'= длина отрезка в м'); 4: writeln(l/1000,'= длина отрезка в м'); 5: writeln(l/1000,'= длина отрезка в м'); else writeln('ошибка'); end; end.