program IsNumber;

uses
SysUtils;

var
input: string;
i: integer;
isNumber: boolean;

begin
isNumber := true;

Write('Введите слово: ');
Readln(input);

for i := 1 to Length(input) do
begin
if not (input[i] in ['0'..'9']) then
begin
isNumber := false;
break;
end;
end;

if isNumber then
Writeln('Введенное слово является числом')
else
Writeln('Введенное слово не является числом');
end.