Расшифровать послание, . это не относиться ни какому-либо предмету) 69705415673

мб это координаты на карте

// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin   var p: =arrrandom(40,-99,99); p.println;   // максимум среди четных   var max: =p.select((v,i)-> (v,(t-> t[1].isodd).max(t-> t[0]);   // первый из четных индексов элементов, равных max   var im: =p.indexesof(t-> t=max).where(t-> t.isodd).first;   //   for var i: =0 to im-1 do p[i]*=max; p.println end. пример 63 53 -46 -34 -65 -87 79 71 57 -93 -49 51 -85 -46 -26 -7 53 96 86 38 -9 -91 71 -82 76 69 84 41 81 -11 5 -53 -94 -97 -92 -42 -85 -39 -43 -92 6048 5088 -4416 -3264 -6240 -8352 7584 6816 5472 -8928 -4704 4896 -8160 -4416 -2496 -672 5088 96 86 38 -9 -91 71 -82 76 69 84 41 81 -11 5 -53 -94 -97 -92 -42 -85 -39 -43 -92

1) var s,w: string; p: integer; begin readln(s); s: =s+' '; p: =pos(' ',s); while p> 0 do   begin   w: =copy(s,1,p-1);   writeln(w,' - ',length(w));   delete(s,1,p);   p: =pos(' ',s);   end; end. пример: слова в тексте разделены пробелом слова - 5 в - 1 тексте - 6 разделены - 9 пробелом - 8 2) var s,w: string; k,i: integer; begin readln(s); s: =s+' '; w: =''; k: =0; for i: =1 to length(s) do   if s[i]< > ' ' then begin w: =w+s[i]; k: =k+1; end   else begin writeln(w,' - ',k); w: =''; k: =0; end; end.