решала вчера весь вечер задачи на pascal и было там одно из заданий проверить неравенство...ну типа работает или нет...ну я и написала(особо не задумываясь что мне это преподу показывать...)
if x+(x mod y)= x+ (x div y)-y then
edit3.Text:='неравенство рулит';
if x+(x mod y)<> x+ (x div y)-y then
edit3.Text:='неравенство фтопку!';
а теперь представьте какое у неё было изумленное выражение лица, когда мы стали проверять неравенство...