дано действительное число R вида nnn.ddd (три цифровых разряда в целой и дробной частях). Поменять местами дробную и целую части числа и вывести полученное значение числа.

И еще: если Вы в WDE проверяли, там дыра, расширение .ToString для вещественного числа превращает точку в запятую, поэтому местоположение точки не находится. На будущее: НИКОГДА не пытайтесь, выполнив программу в WDЕ и получив "неверный результат", начинать заявять, что программа неверна: WDE сильно отстает от развития автономных версий.

Да Вы, батенька, хамите! Не стоит так много о себе думать, еще и указывать мне - в чем я разбираюсь, а в чем нет!

Ваша программы не работает, да еще, оказывается!! не принципиально - на выходе набор символов или число!!!

Учите матчасть!

1. Читайте СВОЙ вопрос внимательно: "дано действительное число R вида nnn.ddd (три цифровых разряда в целой и дробной частях)." В школьных задачах НИКОГДА не контролируется правильность вводимых данных, если об этом специально не говорится в условии. 2. Если у Вас программа не работает, значит Вы запустили её в некой версии, более ранней, чем указанная. Это называется просто: переваливать с больной головы на здоровую.

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016begin  var s:=ReadReal('r=').ToString;  var p:=Pos('.',s);  Writeln(Copy(s,p+1,3)+'.'+Copy(s,p-3,3))end.Тестовое решение:r= 234.652652.234