Question

составить программу определяющую является ли целое положительное трехзначным.

Answer 1

var b:integer;
begin
readln(b);
if (b > 99) and (b < 1000) then write('yes') else write('no')
end.