Дано действительное число R вида nnn.ddd (три цифровых разряда в целой

program zz1;

var   s, k, a, R:real; // задаем переменные реального типа

begin

write( введите данное действительное число R вида nnn.ddd ); // вводим число с клавиатуры

read(R);

a:=frac(R)*1000; // отделяем дробную часть и переносим ее вперед умножив на тысячу

k:=trunc(R) * 0.001; // отделяем целую часть и переносим ее назад умножив на одну тысячную

s:=a + k; // формируем новое число

write(s:7:3); // выводим ответ вида ddd.nnn

end.