FormatTime, today, %var1%, dd.MM.yy
FileRead, last_line,  text.txt
loop, parse, last_line, `n, `r
{
	Total:=a_index
}
SetFormat, float, 0.0
kolvo:=(Total-1)/3
loop, %kolvo%
{
nomer:=A_Index
IniRead, dat, text.txt, reg , dt%nomer%
IniRead, stat, text.txt, reg , st%nomer%
EnvSub, raznic, %dat%, days
FormatTime, srok, %dat%, dd.MM.yy
raznica:=-raznic
if (raznica > 0)
	MsgBox, Сегодня: %today% `n Истекает: %srok% `n Осталось дней: %raznica% `n Статус активации: %stat% `n Всё в порядке
else
	MsgBox, Сегодня: %today% `n Истекает: %srok% `n Осталось дней: %raznica% `n Статус активации: %stat% `n Необходимо отключение
}
return