language: Pascal (gpc) (gpc 20070904)
date: 107 days 2 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
Program easy(input,output);
var N:integer;
begin
   readln(N);
   if (N div 1000=0) and (N div 100<>0) then
              writeln('yes')
   else writeln('no');
end.