Pascal/Turbo Pascal - Ejercicio de decimales

uSES crt;

VAR

  A : rEAL;

  entero:integer;

  decimal : real;

BEGIN

  Writeln('Introduzca un n£mero: ');

  readln(a);

  entero:=Trunc(a);

  decimal:=a-entero;

  if decimal=0 then {Quiere decir que el número no tiene decimales}

     Writeln('Sin decimales. Número entero')

  else

    writeln('Con decimales. Número real');

  Writeln('La parte entera del n£mero es ',entero);

  Writeln('La parte decimal del n£mero es: ',decimal:3:3);

  readln;

END.