Pascal. вводится предложение. записать в файл слова начинающиеся с букв от 'м' до 'я'

// pascalabc.net 3.0, сборка 1066 var   s, wd: string;   n, pt: integer; begin   write('введите строку: '); readln(s);   n : = length(s); pt : = 1;   repeat       // пропускаем все символы до первого непробельного       while pt < = n do           if s[pt] = ' ' then inc(pt) else break;       if pt < = n then begin           // выделяем очередное слово           wd : = '';           while pt < = n do               if s[pt] < > ' ' then begin wd : = wd + s[pt]; inc(pt) end               else break;           if (wd < > '') and (lowcase(wd[1]) in ['м'..'я']) then writeln(wd)       end   until pt > n; end. тестовое решение: введите строку: **а роза      упала    на      лапу азора      ** роза упала на а вот так версия 3.0 позволяет решить "по-современному": // pascalabc.net 3.0, сборка 1066 begin   var s: =readstring('введите строку: ');   writeln('результат: ',s.towords(' ').where(x-> x[1] in ['м'..'я'])) end. тестовое решение: введите строку:   **а роза      упала    на      лапу азора      ** результат: [роза,упала,на]

Среда не уточнялась  < meta charset = "utf-8"> < script type="text/javascript"> // a и b - длины , h - высота , s- площадь.  var a = prompt("введите длину первого основания"); var b = prompt("введите длину второго основания"); var h = prompt("введите длину высоты") ; var s; a = parseint(a); b = parseint(b); h = parseint(h); s = parseint(h); s = ((a+b)/2)*h; alert("площадь данной трапеции" + s); < /script>