В том что 100 - это тип данных integer (целое число), а
100.0 - это тип данных Real (дробные)
_________________________
1) program n_1;
var n: integer;
begin
readln (n);
if n div 100 = 0 then
writeln ('Число двузначное') else writeln ('Число не является двузначным')
<span>end.
</span>
Program q193766551;var i, s: Integer;begin s := 0; for i := 2 to 100 do Inc(s, i * Integer(not Odd(i))); WriteLn(s);end.
В самом скрипте написано - надо нажать клавишу Пробел.