program Project9; {$APPTYPE CONSOLE} var A:integer; begin writeln('Vvedit chyslo'); readln(A); if A>100 then writeln(A,' bilshe za 100'); if A<100 then writeln(A,' menshe za 100'); if A=100 then writeln(A,' dorivnue 100'); readln; end.