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

Var
  a, b: real;
  ip, fp: integer;

begin
  Write('Введите число в формате nnn.nnn ->');
  Readln(a);
  ip := trunc(a);
  fp := trunc(1000 * (a - ip));
  b := fp + ip / 1000;
  writeln('Результат: ', b)
end.

Тестовое решение:
Введите число в формате nnn.nnn ->135.782
Результат: 782.135