Question

Напишите программу, которая в случае, если введена цифра, то выводит "Number", иначе "Not a number".

Answer 1

program test;

var a:string;

begin

wtite ('Введите символ');

read(a);

if a in (0..9) then write ('number')

else write ('not a number');

end.