Verified answer

var s: string;

a: integer;

begin

readln(a);

if a mod 2=0 then s:='четное' else s:='нечетное';

if a in [1..9] then s:=s+' однозначное число';

if a in [10..99] then s:=s+' двузначное число';

if a in [100..999] then s:=s+' трехзначное число';

write(s);

end.