program zadacha1; {$APPTYPE CONSOLE} uses SysUtils; var c :integer; begin writeln('vvedit znachena c '); if c=100 then writeln('c=100'); if c<100 then writeln('c<100'); if c>100 then writeln('c>100'); readln; end.