Program WhereFrom;

{$I ":Include/DOS.i"}

var
    stdfile : FileHandle;

begin
	{ Calling Input() will always give you the filehandle of standard
	  input, since that's where the startup code gets it from }

    stdfile := DOSInput();
    if IsInteractive(stdfile) then
	writeln('Input is coming from the console.')
    else
	writeln('Input is comming from a file.');
end.