function DaysCounter(n: integer): string;
begin
  if n mod 10 in [11..14] then Result := 'До начала весны осталось ' + IntToStr(n) + ' дней'
  else
    case n mod 10 of
      0, 5..9: Result := 'До начала весны осталось ' + IntToStr(n) + ' дней';
      1: Result := 'До начала весны остался ' + IntToStr(n) + ' день';
      2..4: Result := 'До начала весны осталось ' + IntToStr(n) + ' дня';
    end;
end;

begin
  var date1: System.DateTime := System.DateTime.Now;
  var date2: System.DateTime := new System.DateTime((System.DateTime.Now.Month >= 3) and (System.DateTime.Now.Day > 1) ? System.DateTime.Now.Year + 1 : System.DateTime.Now.Year, 3, 1);
  WriteLn(DaysCounter(date2.Subtract(date1).Days));
end.