Разве в MP нету такой штуки, как MOD ? Что за черезжопство:
t:=Frac(d*0.1)*10;
З.Ы. Сам проверить не могу (MP нет), но что-то мне кааца, что t вычисляется неверно.
Ибо с использованием Mod (на бейсике) твой перебор If (t=2) OR (t=3) OR (t=4) работает отлично. Логика везде одинаковая, что в паскале, что в бейзике, так что у тебя t неверно вычисляется, перепроверь её значение.
Repeat
d = d +1
t = d Mod 10
If (d/10) Mod 10 <> 1
If t = 1 Then
d1$ = "день"
Else
If t = 2 Or t = 3 Or t=4 Then
d1$ = "дня"
Else
d1$ = "дней"
End If
End If
Else
d1$ = "дней"
End If
Print d + " "+d1
Delay 300
Until KeyHit(1)