anechka07 :

Результат сравнения двух различных вещественных типов не всегда очевиден.Это относится и к случаю, когда сравниваются два вещественных числа различных типов. Например, что будет результатом работы следующей программы?

program FloatParadox;

var X : single; Y : double;

begin X := 1/3; Y := 1/3;

Writeln(X=Y);
end.