С клавиатуры вводится целое число А. Если оно двузначное и отрицательное, то вывести **...

Question

С клавиатуры вводится целое число А. Если оно двузначное и отрицательное, то вывести на экран слово Yes, а в противном случае - вывести на экран слово no​

Answer 1

var num:Integer;

begin

ReadLn(num);

if (num < -9) and (num > -100) then

WriteLn('Yes')

else

WriteLn('No')

end.