Вывести целую и дробную часть вещественного числа - PascalABC.NET - Ответ 8651146

var a, b, i, n: integer;
//i - счетчик второго цикла n - колво цифр в цедой части
c, b2, a2 : real;
begin
  readln(c);
  a := trunc(c); //получили целую часть
  a2 := trunc(c); //второй раз получили целую часть, через нее узнаем,на сколько потом будем умножать
  while trunc(a2) > 0 do
  begin
    a2 := a2/10;
    Inc(n);
  end;
  //Узнали, сколько цифр в целой части, теперь нужно получить нормальное число из дробной
  b2 := frac(c);
  while i <> n do
  begin
    b2 := b2 * 10;
    Inc(i);
  end;
  b2 := round (b2);
  writeln(a=b2);
end.