Вывести целую и дробную часть вещественного числа

var c, b: real;
a :integer;
begin 
  readln(c);
  a := integer(trunc(c));
  b := frac(c);
  writeln(a=b);
end.

program reals;
uses
  math;
var
  c: real;
  a,b :integer;
function digits(n:integer):integer;
var
  k:integer;
begin
  k:=0;
  while n>0 do
    begin
      n:=n div 10;
      Inc(k);
    end;
  digits:=k;
end;
 
begin
  readln(c);
  a := integer(trunc(c));
  b:=round(frac(c)*power(10,digits(a)));
  writeln(a=b);
  readln;
end.

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.