[[Caral]]

Hola
En delphi:

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a :integer;

begin
writeln('Introduzca un valor completo');
readln(a);
end.

end.

Saludos